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Vorwort 


Das vorliegende Buch möchte aufzeigen, wie man als Benutzer eines C-64 


— Probleme für den Computer aufbereiten, 
— in BASIC formulieren und 
— Spaß an Mathematik und Physik bekommen 


kann! 


Dieser Zielsetzung konnte eine reine Programmsammlung (im Sinne kommentierter 
Listings) nicht genügen; zu jedem Programm gehört vielmehr 


— eine Erörterung des Problemhintergrunds, 

— ein allgemeiner Ablaufplan (Struktogramm 0.ä.), 
— eine BASIC-Fassung (Commodore 64), 

— genügend Testmaterial. 


Die Aufgabenstellungen sind überwiegend der Schulmathematik und -physik entnommen. 
Die zugehörigen BASIC-Anweisungen sind in der Regel kurz gehalten, damit sie leicht ver- 
standen und schnell eingegeben werden können. Der Leser wird sie ohnehin nach seinem 
Geschmack abändern und ergänzen! 


Ausnahmen bilden die Versionen zur 


— Meßreihenauswertung, 
— Kurvendiskussion, 

— Linearen Algebra und 

— Analytischen Geometrie. 


Sie gerieten etwas umfangreicher, aber das ist eben der Preis für ein wenig Komfort! 


Im übrigen wurde auf gerätespezifisches Herumtricksen nach Möglichkeit verzichtet 
und ein Programmstil angestrebt, der dem potentiellen PASCAL-Umsteiger das struktu- 
rierte Vorgehen nicht verbaut. (So hat z.B. ein Unterprogramm nur einen Ausgang, d.h. 
nur eine RETURN-Marke, die ggfs. von mehreren Stellen des Unterprogramms aus ange- 
sprungen wird). 

Spracherweiterungen sind an keiner Stelle des Buches erforderlich; eine hochauflösende 
Graphik in Maschinensprache wird zur Verfügung gestellt. 


Die Listings wurden mit einem Epson FX-80+ (Görlitzinterface) erstellt. 


Düsseldorf, im Januar 1986 K.U. Bromm 
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1 Zum Gebrauch des C 64 


1.1 Algorithmen und ihre Darstellungsformen 


Ein Computer ist ein Werkzeug zur Lösung von Problemen, deshalb hat man ihn auch 
schon Denkzeug genannt. 


Ähnlich wie beim gewöhnlichen Werkzeug gibt es auch für den Umgang mit Computern 
nützliche Regeln. Eine der wichtigsten: Man setze sich nie an den Rechner, ohne einen 
festen Plan zu haben. Wenn man ein Regal an der Wand befestigen will, greift man auch 
erst zur Bohrmaschine, nachdem man mit dem Filzstift die Löcher vorgezeichnet hat! 

Als gedankliche Stütze zum planmäßigen Vorgehen ist die Sprache BASIC wenig geeignet. 
Zwar kann man kleinere Probleme direkt in BASIC formulieren. Bei umfangreicheren 
Fragestellungen sind Aufeinanderfolge und Art der durchzuführenden Schritte — der sog. 
Algorithmus — zunächst noch gar nicht bekannt; es stellt sich dann die doppelte Aufgabe: 


1. zum vorgelegten Problem einen passenden Algorithmus zu finden und 

2. den Algorithmus in die dem Rechner verständliche Sprache, hier also BASIC, zu über- 
setzen. 

Zur Entwicklung und Übersetzung von Algorithmen gibt es organisatorische Hilfen. Dazu 

zählen das Flußdiagramm (Programmablaufplan), Struktogramm (Nassi-Shneiderman- 

Diagramm) und die Verbale Notation (unter Verwendung genormter Sprachelemente). 

Wir erläutern sie anhand der Aufgabe, alle Teiler einer natürlichen Zahl z zu bestimmen 

(s. auch S. 2). 


Allgemeine Erläuterungen 


Der Computer soll die Teiler der Zahl z berechnen, indem er z nacheinander durch t= 2, 3, 
4,5, .... teilt und im Falle, daß der Quotient ganzzahlig ist, die Werte für t und g ausgibt. In 
den Ablaufplänen stellen z, t und q Speicher dar. Zu Beginn wird der Speicher namens z 
vom Benutzer über die Tastatur des Rechners mit der zu untersuchenden Zahl belegt. Diese 
Eingabe ist streng zu unterscheiden von einer Zuweisung wiet <1 odert=t +1. Eine 
Zuweisung ist erkennbar an dem nach links gerichteten kurzen Pfeil. Sie besagt, daß dem 
links stehenden Speicher die rechtsstehende Zahl bzw. der Wert des rechts stehenden 
mathematischen Ausdrucks zugewiesen werden soll. Im Fallet *t + 1 schafft der Rechner 
beispielsweise zunächst ein Duplikat der im Speicher t befindlichen Zahl in das Rechen- 
werk, zählt dort 1 hinzu und überschreibt dann mit diesem Wert den Inhalt des Speichers t. 
Indem außer t jedesmal q mit angezeigt wird, kann man aus dem Wiederholungsblock aus- 
treten (herausspringen), sobald die Abfrage t > q zu bejahen ist, also der Divisor den Quo- 
tient übertrifft! 

Die drei organisatorischen Hilfen werden wie folgt eingesetzt, um alle Teiler einer natürli- 
chen Zahl zu bestimmen: 


Flußdiagramm 


Eingabe 
von 
z 





Zu den Symbolen des Flußdiagramms 


Grenzstelle 
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Struktogramm 


Anfang des Programms 
Eingabe von z;t —1 






Ende des Programms 


Verbale Notation 


Anfang des Programms 
Eingabe von z 
t -——1 
Wiederhole |\t «—t+t]1; q+—z:t 
Wenn aEN dann Ausgabe 
von t und q 
bst>qg 


Ende des Programms 


Ovale wie dieses werden zur Kennzeichnung von Anfang und Ende von Pro- 
(0) grammen und Programmteilen benutzt. 


Eingabe/Ausgabe 


Parallelogramme werden jedesmal dann verwandt, wenn der Benutzer den 
( / Dialog mit der Maschine braucht, z.B. um der Maschine Daten (Zahlen) mit- 
zuteilen oder von der Maschine Ergebnisse zu erhalten. 
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Verarbeitung 
Rechteckige Symbole rahmen Operationen, die vom Programm her gesteuert 
00 werden; es sind also im Gegensatz zum Parallelogramm keine handgesteuer- 


ten Eingriffe möglich. 
Verzweigung 
Eine Verzweigung macht eine Abfrage zur Überprüfung der gestellten Be- 
<> dingung nötig; es wird auch gesagt, daß der Computer an der betreffenden 
Stelle eine /ogische Entscheidung zu treffen habe. 


Zu beachten ist, daß die Raute im Flußdiagramm stets drei Anschlüsse auf- 
weist; einen Eingang und zwei Ausgänge. 


Wiederholung 


Die nach oben gebogene Schleife umfaßt den Block der zu wiederho- 
lenden Anweisungen. Damit man keine Endlosschleife erhält, muß 
jeder Wiederholung eine Austrittsbedingung beigefügt werden! 

Diese Austrittsbedingung kann auch inmitten des Blocks stehen oder 
am Anfang, s.u. 


Zur Symbolik des Struktogramms und der Verbalen Notation 


Ein- und Ausgaben werden nicht von der Verarbeitung besonders abgehoben. Verzweigung 
und Wiederholung sehen isoliert betrachtet so aus: (Genormte Sprachelemente sind kursiv 
gesetzt) 


Verzweigung 
(Im Unterschied zur einfachen Wenn-dann-Abfrage des Demonstrationsbeispiels werden 
bei einer Wenn-dann-sonst-Abfrage auch im Nein-Fall Anweisungen erteilt) 


Bed. A erf. 
? 


Programmschritte vor der Verzweigung ... 


Wenn Bedingung A erfüllt ist 
dann Anweisungen B;,, B, usw. ausführen 
sonst Anweisungen C,,C, usw. ausführen 


Programmschritte nach der Verzweigung ... 
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Wiederholung Wiederholung mit Abfrage am Ende 


Programmschritte vor der Wiederholung ... 


Anweisungen Wied For _ m - -- - - EI 
Bı, B2 usw. ıederhole nweisung Bı 


Anweisung B; 


USW. 


bis Bed. Aerf. bis Bedingung A erfüllt ist 


Programmschritte nach der Wiederholung ... 


Wiederholung mit Abfrage am Anfang 
Programmschritte vor der Wiederholung ... 


Solange Bed. A erf. 


Anweisungen Solange Bedingung A erfüllt ist, twe (folgendes) 


Bı, B2 usw. Anweisung Bj, 


Anweisung B; 





Programmschritte nach der Wiederholung ... 


Man beachte auch den Umstand, daß man nur vor oder nach dem Block der zu wiederholen- 
den Anweisungen aussteigen kann, wenn man sich der Hilfsmittel der verbalen Notation 
oder des Struktogramms bedient, während man mit dem Flußdiagramm auch Zwischenaus- 
tritte zu formulieren vermag. Der erstgenannte Nachteil wird aber bei umfangreicheren 
Programmen durch den Vorteil der besseren Verständlichkeit des Algorithmus ausgegli- 
chen. 


Das Flußdiagramm beansprucht gegenüber den anderen Darstellungsformen mehr Platz und 
wird deshalb in diesem Buch nicht so häufig verwandt. Andererseits gerät man bei Strukto- 
grammen von einer gewissen Schachtelungstiefe ab in Platznot, vgl. 3.5. Die Verbale Nota- 
tion weist diese Nachteile nicht auf, vermag aber Verzweigungen und Wiederholungen op- 
tisch nicht so gut hervorzuheben. Welchen der genannten Hilfsmittel der Vorzug zu geben 
ist, laßt sich schwer entscheiden. Ein allgemeiner Ablaufplan vor Zusammenstellung der 
BASIC-Befehle erleichtert jedoch in der Regel das Umsteigen von der problemorientierten 
Ebene auf die Sprachebene des Computers (Programmiersprache). 


1.2 Übersetzung von Algorithmen in BASIC, Simon’s-BASIC und 
Maschinensprache 


Der Sprachumfang des C 64-BASIC ist im Vergleich zu andern Dialekten etwas mager, des- 
halb wird die Kodierung des allgemeinen Plans gelegentlich umständlich. Trotzdem werden 
an keiner Stelle dieses Buchs Spracherweiterungen vorausgesetzt, sondern bei passender 
Gelegenheit lediglich Vereinfachungen für Simon’s-BASIC-Besitzer vorgeschlagen. Ferner 
wird ein Graphikprogramm in Maschinensprache bereitgestellt (vgl. 1.2.6). 


Wir stellen nun die in diesem Buch öfter benutzten rechnerspezifischen Programmteile zu- 
sammen, um sie in den einzelnen Kapiteln nicht immer wieder näher erläutern zu müssen. 


1.2 Übersetzung von Algorithmen in BASIC 


1.2.1 Zur Bildschirmsteuerung 


Bei kleineren Programmen verwenden wir die Möglichkeit, die entsprechende Anweisung 
innerhalb der Gänsefüßchen mittels Reverssymbol zu verschlüsseln (sog. Zitatmodus). 
Bei größeren Programmen und aus Gründen der besseren Verständlichkeit werden wir 
häufig über den ASCII-Code eine entsprechend benannte Variable belegen. Folgende 
Konventionen sollen gelten: 


Anweisung Verschlüsselungen | 


Bildschirm löschen 
(mit ’cursor home’) 
Nur ’cursor home’ 
cursor zurück (links) 
cursor (nach) oben 
cursor (nach) unten 
















print ‘S’, printbl$, bl$=chr$(147) 













print ‘'s”, printch$, ch$=chr$(19) 
print ID‘, printez$, cz$=chr$(157) 
print ''Q’, printco$, co$=chr$ (145) 


print ”q’, printcu$, cu$=chr$(17) 








Man beachte, daß in den Listings nicht immer Reverssymbole gedruckt werden konnten! 
Sollein Farbwechsel vorgenommen werden, verwenden wir vorwiegend die zweite Methode: 


weiß: print fws, fws = chrs (5) 
schwarz: print fs$, fs$ = chr$ (144) 
USW. 


Zur direkten Ansteuerung des 40 x 25 Bildschirmraters setzen wir ein kleines Unterpro- 
gramm ein: 


sat poke Zjid,z’Foke Zll,s'sus: Sösdi!return 


Bevor man in die Zeile 500 mit der Anweisung gosub verzweigt, sind die Speicher z und s 
für Zeile und Spalte des Rasterpunktes mit 0 <z< 24 und O<s< 39 zu belegen. 


1.2.2 Warteschleifen 


Wir verwenden die folgenden Unterprogramme: 


aa rem #E#  a112, warteäschleife EHE 
E14 Seh SEIFE SE="" then 5] 
Sad mebortn 
ea en EEE alla, vwarteschleitfe #4% 
Ala if Feekiziasleed then 519 
24 return 

aa rem EEE alla. warteschleife 88% 


PL ER SR JR u 


ininın 
| 

>- 
-r, 
nm 
S 

1 
= 
rn’ 
\ 
Ir 
L 

” 
„. 
I 
GG 
it 
he 
—' 

iDh 
A 
j WE 
z. 


fe ı 


m ;% 
ii 


retorv 
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Anmerkung: Die ersten beiden Schleifen werden durch einen beliebigen Tastendruck unter- 
brochen, die dritte nur die die Betätigung der Leertaste. 


SEA rem EEE Jar.'nelvr-zschle)ite 3%: 

Ali Det af ar" "ar AI" nm’ then Sl 
21 return | 

a en Panzenzchlelf hc 


"14 for 1=1 to Zeit 


Anmerkung: Die obere Grenze der Laufvariablen ist vorteilhaft auf 75®/sec festzusetzen. 


1.2.3 Zu den Eingaben 


Da jede Anweisung input nur ein prompt (eine Aufforderung zur Eingabe) enthalten darf, 
ist öfter eine Konstruktion wie 


ja inFrut" abo Wsa.bou. 


1A Frint" a bc dJ":inmFut 2.b.w.d 


verwandt worden. Hierbei werden die durch Kommata getrennten Werte nacheinander ein- 
gegeben und erst zum Abschluß der Eingabe die RETURN-Taste betätigt. Dies hat neben 
der Zeitersparnis auch den Vorteil der Korrekturmöglichkeit der Eingaben. 


Bei der GET-Eingabe bleibt der Cursor unsichtbar, außerdem entfällt das Signal zur Be- 
endigung der Eingabe — also kein RETURN — da nur ein Zeichen eingelesen wird. 


Bei Bedarf wird, z.B. im Zusammenhang mit Warteschleifen, der Tastaturpuffer vor 
und/oder nach der Eingabe durch ein Poke 198,® geleert. 


1.2.4 Zu den Ausgaben 


Der C 64 rechnet nicht sonderlich genau. Für ihn ist bekanntlich 3* = 81.0000001. Zumin- 
dest unterdrückt er oft die Rundungsstellen in der Anzeige nicht. Wir sind daher öfter ge- 
zwungen, wenigsten die Ausgaben sinnvoll zu runden. Für das Runden einer im Speicher x 
befindlichen Zahl auf 2 Nachkommastellen benutzen wir das Unterprogramm: 


ER rem ### anf 2 dezimalen runden ##4% 
SIR zeintlszhl BARS Kein 
Sa rekurms 


Der Leser mag sich die Wirkungsweise an einem Beispiel selbst verdeutlichen. Probieren Sie 
es mit x = 347.6751. 
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Will man die Rundung allgemein auf n Dezimalen — etwa durch eine Eingabe von n — er- 
möglichen, kann man folgendes unternehmen: 


aArem EEE aufn dezinaten Munden ##% 
1a zeinte1Btnr. LI Neue weintindze.d 

then zeintluetl 
Ed Keintizdeziretorn 


Die Korrektur von +.1’ ist nötig, weil der Rechner nach Potenzierung und Integerbildung 
manchmal falsch dividiert. 

Weiter ist zu beklagen, daß der Rechner Zahlen /inksbündig untereinandersetzt. Zur korrek- 
ten, also rechtsbündigen, Tabellierung ganzer Zahlen dient das folgende Programm: 


Sa rem #5 rechtebuendige auzssbe Er 
15 print riahtäi" N4cbelinb(x)2, Si irekurn 


(Die Zahl der blanks ist gleich der Ziffer hinter dem Komma und kann auch kleiner ge- 
wählt werden (zu right$ vgl. 2.1.1)) 


1.2.5 Balkengraphik 


Balkendiagramme verwendet man gern zum Vergleich von Prozentsätzen u.ä. Das folgende 
Programm zeichnet sie mit der Genauigkeit der Feingraphik (200 Abstufungen senkrecht) 
im normalen Textmodus. 


FAR rem EEE O3 balkenararhik 84% 


Gas schfijif oe then 395 


.,s 
" 


. 


zBuS) ann zent zw au#16d-: 
#amdr.Sotif mad then. z=e2l:9oto IM 
A15 tor 7=21 ta Z2-3m step -1'’90zub 330: 


Frivt bmfis) vet 
a yazub FIE:Print baflfm: 
z=cj:s=aeligozub 3: Print zu) 


A Foakeild,z’fnkeill,s:zsusägndl return 

> bmu£t =: usa on i 
kun Wh! za met Br mn 

Sam bafi.sa='r kalter" ibnläane"n 

Pat Br Tor) ba (m) a iA 


Erläuterungen: Vor Aufruf dieses Unterprogramms müssen die Variablen bp, zw und gw 
belegt werden. ’bp’ legt für den Balken die Positionen (Spalte) fest. zw’ enthält den Wert, 
der als Balken dargestellt werden soll. Der Abbildungsmaßstab wird durch einen Grund- 
wert ’gw’ so vorgegeben, so daß zw/gw < 1 für alle zw ist. 
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Die Balken reichen maximal von der 2. bis zur 21. Zeile. Die Feinabstimmung von einem 
Achtel des Zeilenabstands (einer Pixe/-Zeile) wird durch die Verwendung entsprechender 
Graphiksymbole erreicht. Folgende 8 Tastenkombinationen bewirken die Abspeicherung 
der entsprechenden 'Schichtbreiten’ von 1 bis 8 Pixe/ auf die Zellen 1 bis 8 des String- 
Feldes bms$, vgl. Z. 995, 999: 


. nu Graphik-Symbol 
S h d tät 
peicherindex zu betätigende Tasten auf dem Bildschirm 





1.2.6 Hochauflösende Graphik 


Im Rahmen dieses Buches wird auch mit Feingraphik oder hochauflösender Graphik ge- 
arbeitet (engl.: hgr-modus, high-graphic-resolution-modus). 

Weil das C 64-BASIC so gut wie keine Anweisungen hierfür zur Verfügung stellt und die 
mit peek und poke durchsetzten Ersatzkonstruktionen entschieden zu langsam ablaufen, 
wurde ein eigenes Maschinenprogramm entwickelt. Hier der zugehörige BASIC-Lader: 


a ren EEE Grarfik EB, wiz dd 3% 
119 for ee La IT 

120 anf: Finke j Pr} 

1:3 vet. i 


1423 rem & Brarhik lseschen:3l243205 
1543 Jata 15%, EREESHEGEHELGERE 133.293, 

122,22. 188. 145,243, 208, 208,25, Dan 
lEi Jata 258. 202, ZA, : 245, 


a rem #£ farbe Pkböhir setzen! 
1223 Jata 32%. a ee lan. 123 
120 data 152,125. 133.259,159.9, 
152, %, 152.251: 1:43,49, 145,242, 
za data 291.238. 25, ZI, ZEE,. D>d 
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1a ren # Punkt setzen: P2=4360 
22a data 32: 119.0.32.239,1593. 134.35, 120. 


152,592. 132.: 1. 165. 20.41.07, 1. EI, 2 
22a data 132.20. 189,09. 122,24,506, 102. 202, 1 
5,282, 170, 185,35,41. 7, 168,€3.35. 133 
243 Jata 35. 73:74. 101.25. 7, 741. a 
‚3192,334:.133,35: 189. 20,161. ze LES 8 
zaa data 162. 21.101.39.9. 824.133. 1535 
17.24. 140.24. 1535, 599,1324.1.509,96 
ze pen # @rarhik elnschalten:9e=43333 
va aba 172.9. 221,41. 252, 141.0. 221, 169. 
zit... 169,53, 141.17. 205.25 


za em Er arhik ausschalten S3=42350 
23a datalsa. 27, 141: 17, 205, 173.0. Zal.4l, 

ZELL, LEI 12. 141. 24. 205 
ia data 96 


Hinweise zur Benutzung 


Die fünf wichtigsten Graphikanweisungen sind hier zusammengestellt. Sie werden folgen- 
dermaßen aktiviert, sofern den Variablen gl, ph, ps, ge und ga vorher ihre Werte zugewiesen 
wurden. 


1. sys gl 

Dieser Befehl wird meist noch vor den Befehl sys ge gestellt und bereitet die 'Graphikseite’ 
vor, indem der Speicherbereich von alten Bitmustern befreit wird. Er wird auch benutzt, 
wenn eine schon erstellte Graphik durch die nächste ersetzt werden soll. 

2. sys ge 

Mit dem Befehl wird die Graphikseite ‘aufgeschlagen’. Sie benutzt den RAM ab Speicher- 
platz Eß®® und schränkt somit den verfügbaren BASIC-Bereich nicht ein. 

3. sys ph, 16*f1+f2 


Hierbei bedeutet f1 die gewünschte Farbnummer für den Hintergrund und f2 entsprechend 
die Farbnummer für die noch zu setzenden Punkte. Eine erprobte Kombination ist sys ph, 
22 (weiße Punkte vor blauem Hintergrund) 


A4.sys ps,X,Y 

Dies erzeugt einen Punkt im Abstand x vom linken bzw. y vom oberen Bildschirmrand. 
Hierbei gilt für die Koordinatenangaben: ÖB<x <319 und dB <y< 199. 

b.sys ga 

Mit sys ga wird eine Rückschaltung in den Textmodus erzeugt, die oft zweckmäßig von 
einem ‘print bis’ begleitet (siehe 1.2.1) wird. 


Um alle genannten Anweisungen in einem beliebigen Programm ausführen zu können, 
braucht man lediglich das oben angeführte Hilfsprogramm von der Diskette zu laden und 
zu starten. Dann wird das Maschinenprogramm in einen von BASIC aus nicht benutzten 
Teil des RAM (hinter CBP®) abgelegt und bleibt dort, bis der Rechner mit dem Kippschal- 
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ter ausgeschaltet wird (Man kann also zwischendurch beliebig viele Programme neu laden 
oder mit NEW löschen!). 

Um in die hochauflösende Graphik Text einbringen zu können, wird zuvor durch ein zwei- 
tes Maschinenprogramm der (halbe) Zeichensatz in den vierten RAM-Abschnitt verlegt 
(C800-CFFF). Dort kann er auch verändert werden (DATA-Zeilen 28 bis 24 zeigen bei- 
spielhaft die Ersetzung von Graphiksymbolen durch Umlaute u.ä.) 


I rem ##4# zeichensatz werlegen %%#% 
2 Far js421S2 t0 43204 ra Fake 1,3%: 


ne=t 1 
3 4943 4318: pake SESTE, Peek (35376) arnıdd232 
'poke Ba, 196: Print chr£2147% 


l 
3% 
K 


4 data 120.165, 1, r2,41:251, 133. 1,189, 
216. 193,3, 169, 208, 193,5, 160, M1,122,2 
5 data 132,4,162,6:.177.2,145, 4. 2, 205 
‚249,230, 3. 220.5, 202,208, 242, 104 
6 Jata 133,1.173, 24, 203,41, 241,9. 2 
v data 141,24, 243,293,265 
18 rem #4% zeichenzatz weraendern ##% 
11 dim fin: ad=371200 
2 for kl to Siread fik}'next &k 
15 data 112,121,12, 110,94 
i4 for kl to © for it ta 7 
Ss heitfikiriiread z’Foke adth,% 
16 next i: next k 
2a data 0,35,0,69,68,09,62,%0 
el data R,23&, 0,596, 65, 69,56, 
22 data 9.3, EHE, BI, 
23 data a Be a, 32 
24 data 9,4,3,52,113,54, 24,4 


Nach Ablauf des zweiten Maschinenprogramms kann ein in tt$ befindlicher Text durch 
das folgende BASIC-Programm in die Graphik plaziert werden, wenn zleile) und s(palte) 
vorher gemäß d <z< 24,9 <s< 39 belegt wurden. 


ven ### text in graphik 44 
\=lenltt£):adeSt3ddrzti2ntsrl 


xx 
as At) 
= 
une 


u 1 


RRZESZEE 
Zt 
udn 
n 
RT 


ia for kkel to ll 
3152 Khesasccmid#itt#.kk,122 
za if hhönd then 545 
22a if hhüde then hKhehh-s4:acotocd4l 
aaa if hrmilzs then hhehh-32:antınddh 
235 if hhi1a2 then hhehh=ßd:! got. 
= if KANass then hhebh-lz23 


in 


for jii=d tu 7 
wuzpeesklS12B8+3#hhriin.Pokeadgtil. un 


In Bl: 
wi 


al 
Zu 
au 


ass vet 11 
ad adlead+n 
Ss next Ek 
Aa7a reburst 
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Gelegentlich können Probleme beim Einsatz der hier angeführten Graphik- und Zeichen- 
satzverlegung auftreten, z.B. nach der Betätigung von RUNSTOP RESTORE. Vorsichtshal- 
ber ruft man das folgende Unterprogramm zu Beginn des entsprechenden Programmes auf: 


200 REM *#%* RE-INITIALISIERUNG VON GRAFHIEK/ZEICHENSATZ #%#* 
205 FOKE 53272,18:FOKE 56576,1976:FOKE 848,196: RETURN 
READY. 


Sollte es trotzdem vorkommen, daß sich nichts mehr tun läßt, hängt das Programm fest, 
dann hilft nur der Befehl POKE 648,4. 
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2 Simulationen aus der Physik 


2.1 Elastischer und unelastischer Stoß 
2.1.1 Gerader Stoß 
a) Physikalischer Hintergrund 


Wir betrachten zwei Körper mit den Massen m, und m> sowie den Geschwindigkeiten 
u1 bzw. us, die sich reibungsfrei längs einer Geraden bewegen wie z.B. die Gleiter einer 
Luftkissenfahrbahn oder wie Stahlkugeln auf glatter Oberfläche: 


_@ OD 


MmMı,U4 Mz2,U2 


Kommt es zu einem Zusammenstoß, so lassen sich die neuen Geschwindigkeiten v, und va 
aus den genannten Daten wie folgt ermitteln: 


I Elastischer Zusammenstoß 


2m>UuJ + (m, — m,) U} 
7 mı +mz 


2m, u + (m2 - m; ) U> 
27 ma tm; 
(Herleitung mit Hilfe des Impuls- und Energieerhaltungssatzes) 


Il Unelastischer Zusammenstoß 


mıUJ + M>U> 
v- mı +ma 


(Herleitung aus dem Impulssatz unter Beachtung von v; = v2 = v) 


Wir entwerfen nun ein Programm, das nach Eingabe von m, M>, u} und u» Später 
vı und v> bzw. v ausgibt. 
Ferner kann der Stoßvorgang durch zwei Sprite-Kugeln bildhaft dargestellt werden. 


Hierzu vereinbaren wir noch, daß linksgerichtete Geschwindigkeiten ein Minuszeichen 
erhalten. Im Falle des unelastischen Stoßes wird auch der Verlust an kinetischer Energie 

in Prozenten angegeben. (Es handelt sich um die Differenz der Bewegungsenergien vor und 
nach dem Stoß, die in Wärme verwandelt wird.) 


2.1 Elastischer und unelastischer Stoß 


b) BASIC-Programm 
18 rem ##% 
15 rem #3 workereitungen #% 


2a def Frerdlsbeintl Ct AD EO 
j for isda to E2:read <’Poke & 


 stoss 


cd © 


# 
2.714 
32+ti,x: next 


25 
39 34=53242 


:Ppoke 2048,13:Poke 2041,13: 


poke 324+39,19 


:poke a3c4744.5 


35 rem 45% =1n93be 4 
+8 input"SgI ml in k3 ";ml:input'" m2 inka "md 
45 input" ul in ms" suli’input" v2 in m/s" inz 
eg Frint:frint" edlastischer oder Wdnelastischer 
ES get auF:if au dte"and au >"y"thernss 
EB rem ### verarbeitung #4# 
&S5 if aug="u" then 5A 
73 ll nnd mad Hul > /Cml+m2 3: 
v2=l Fr 1 ul + mim EU 2I /Cm2+Mm1) 
73 9oto 194 
23 ven tr EundloaltmZ) 
a rem >> ereraieverlust 
33 eua,5ECmlkulkul tm ZU 2 deu. SE tm 
er=(eu-ey)/euk190:ep=sirttlep+t.55 : 
35 rem KH Oo au=23be #4% 
189 if auf="y" then 118 


195 print" wi 


11a Print" 
115 Print" 
129 Print'print 


= Frrdkuyl); "m/s": 
Print" w2 ="; fnrd@w22 "ms ":gatal>R 
teardlui; "mf2" Print 


Y m 


"Stossablauf vorfuehren?" 


125 get. 96:if 9$="" then 125 
138 if 99="j" then 9osub 149:90t0 125 


135 Fcke 3(4+r21,9:Pcke 24+39,0:00tca 40 


144 rem ### 
145 is=u1.'4:ks=u23/4:i=18:'k=255:i 
Pske ad+21.f:Pcoke 24+r39,0:390sub 175:Fcoke ad+21,3 


du 


sPritebeueaunger 


159 
155 3oeub 175:if Peeklad+30)=0 then 135 
189 30sub 28M:ij=i-is'’kek-ks!is 


E Zuzlıf 


=y1,.’4:ks 
if auf="u" then iseyv/d'kseuy/d 
17S:if irlE and 17285 and k>13 


174 return 


A ren ##% 


E poke ad,i’poke 3J+1, 180: Poke 34+2,K% 
jzitis:'kek+tks'return 
klangeffekte %%% 
2 2j=54272:fl= 


wesi+4:3=3i+5:h=esit6:1l=sitrzt 


21a fors=il to 19 
215 FPoke 1,x'’Poke 3,15'’Poke Fu: 

Pake fh.dü:pcake Fl. 20M:Poke u.17 
z20 ext 
225 pPoke 1,9:Pake 3,0'Pake ad+3A.Aireturn 
23a rem WHO 9 sprite-dJaten ##% 
23a data A, a, mM. A. 128. A. A. 255 
24m data Od, 1, 255. 128, 3, 255. 192 
245 data 3, 259. 192, 3 255, 192 
zsa data 3, 255. 192. 1. 255, 128 
255 data A, 255. MR, a. 126. A. A 
zeA data A, a. AM. A. a. a. AM. A. AM 
zes data A, A, A, A. A. a. Mm, A. 
Pa data A, 8, 8, 5. u, u, 4 8. A,dU 


Verlust arı kinetischer enerdgie: 


=y274: 


"Poke ad+t3, 186: 


si:fh=2jitl'tl=eitr2'thesit3: 


Stoss?' 


f ul$&u2>=A then k=1260 
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Erläuterungen: 


In Z.2® wird eine auf zwei Dezimalen gerundete Ausgabe definiert. Z.25 bewirkt die La- 
dung der Sprite-Daten aus Z.230-270 in den Kassettenpufferbereich. In Z.30 wird der 
Rechner darüber informiert und die Farben für die beiden Sprites festgelegt (passend zum 
schwarzen Hintergrund eines grünen Monitors). 


Der Ablauf der Sprite-Kugeln wird in Z.140-175 organisiert. Die Schrittweiten is und ks 
sorgen für eine sinnvolle Untersetzung der tatsächlichen Geschwindigkeiten in die Bildge- 
schwindigkeiten. 


Zum weiteren Verständnis genügt, was ab S. 69 im Bedienungshandbuch (verbesserte Auf- 
lage) über Sprites steht. Auch das Geräusch beim Zusammenstoßen der Kugeln (Z.200-225) 
versteht sich nach Abändern einiger Parameter aus der ‚Gewehrschuss’-Demonstration von 
S.91 (a.a.0). 


c) Testergebnisse 


1) mlinka?d4 
n2 in ka ? 19 
ul in m/s? 6 
uz in m’? 1.8 


elastischer meer ubrnelastischer Sto=s=? e 
„1 = MA m/s 
v2 = 4,2 m’ 


Stassablauf vorfuehren? j 


vor dem StoN | nach dem Stoß 
| 
m—- ®8-\, ® @& — 
uj=6m/s u7=1,8m/s | =0 Vv2=4,2mis 
| 


Anmerkungen zur Sprite-Darstellung: 
Die Bewegung der Kugeln auf dem Bildschirm erscheint mit Bezug auf die Streckenlänge 
in der Größenordnung 1:1®® verkleinert. 
Um den Programmieraufwand zu reduzieren, nehmen wir die Einschränkung in Kauf, 
gegenläufige Bewegungen nur durch Eingabe eines negativen u» demonstrieren zu können! 
2) mi inka ? 4 

n2 ink3 ? 10 


ul in m/s? 3 
u2 in m’s? —1 


e}lastischer oder ulnelastischer stoss”? @ 


vl =-2.7 m/s 
v2 = 1.3 m’ 


2.1 Elastischer und unelastischer Stoß 15 
3) ml inksg ? 


12 in mf’a? —5 


.ischer oder ubnelastischer stoss? u 


verlust an kinetischer eneraie! 87 % 


2.1.2 Schiefer Stoß 


a) Physikalischer Hintergrund 


Wir beschränken uns auf einen wichtigen Sonderfall, den schiefen elastischen Stoß mit 
u=0: 





Neben den Massen m; und m» und der Geschwindigkeit u, ist noch der Winkel «& vorzu- 
geben, der zwischen dem Vektor u; und der Verbindungsgeraden durch die Kugelmittel- 
punkte im Moment des Zusammenstoßes besteht. (Es gelte d<«a< 90). Nach dem Stoß 
bewegt sich zweite Kugel auf der genannten Geraden, so das v, mit u, ebenfalls den Win- 
kel & einschließt. Die erste Kugel hat ihre Geschwindigkeit inzwischen nach Betrag und 
Richtung geändert, die Abweichung von der alten Richtung — also den Winkel zwischen 
den Vektoren u, und v}; — kennzeichnen wir durch ß. 


Ersetzt man in der 2. Formel aus 2.1.1 u, durch u; ' cos«, so erhält man (us = 0) 


2m} 'U4 COS“ 
2” m+m, 


> . . 
Den Betrag von v, erhält man über den Kosinussatz, wenn man das den Impulserhalt 
darstellende Dreieck betrachtet: 


(mv; \?2 = (mı u} \2 + (m> v5)? —- 2: mıU4 'MaV2°C0S« 


1 
> v,”= m, ® m? us + m3 v3 = 2m; U] MaV> COS“ 


Es fehlt noch der Winkel ß, den man mit Hilfe des Sinussatzes berechnen könnte. Wegen 

der anstehenden Programmierung bedienen wir uns lieber noch einmal des Kosinussatzes, 

um Fallunterscheidungen zu vermeiden (cos ist über [®, m] umkehrbar eindeutig!) 

m?v3 + mZu® = m3v3 

cos = 
2m, v7MıU4 
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Das folgende Programm gibt v;, v>» und den Winkel zwischen v; und Vz aus. Auf Wunsch 
wird der Vorgang wieder durch Sprites veranschaulicht. 


b) BASIC-Programm 
19 REM ### SCHIEFER 5T055 ##% 


REM ### WÜORBEREITUHGEN ##% 

FOR I=4 TO 82:READ #:PÜKE S32+1,%:NEAT I 

AI=53243: POKEZA4R 13: POKEZA41. 13: POKERD+29, 15° PORERD+ 4. S 
DEF FHEMCUIST LS 

35 DEF FHGMCA>=130/ EX 

48 DEF FHACCA>=-ATHCA/SOR O1 Ka 2 

+5 DEF FHRDCA>=SIHTECH+B. 3053) 410453,7100 


I EERELNE NE 
In SCH Gh 


„8 REM 44% EINGABE 4% 
5 IMPUT"IM Mi IM KG = ";MI:INPUT" M2 IN KG = ";MZ2 
ea IMPUT" 1 IN MS = "3U1: INPUT" MIHEKELEGRADSSMASHA=FHEMCHRS 


rPEM ###  WERARBEITUNG ##% 

vza24N 1/1 HM DEILRCOSCHA) 

Ylel/MESORCM IA IELIRULFHFIZEN ZEV ZEV Z- ZEN EI LENZ ZEN AR 
CR=CMIEI EL LH EMI EL ELLI ZEV ZEV ZI RTV I ENIEUND 


GER GN 


REM #%% AUSGABE 4% 

FRIHT:FRIMT" WI ="; FNRDEWIDSTARCIIS "MSN 

FEINT" WZ =" FHRIEVZDGSTARE 112" MZS" SAB=SFHACCERB>:PRIHT 

8 PRINT" WINKEL ZWISCHEN Y1 UHD Y2"S;FNRDEHA+FHGMCABP SS "GRAD" 
= PRIHT:PRINT" STOSSABLAUF VORFÜEHREH?" 

M# GET G$:IF G$="" THEN 118 

> IF G$="T" THEN GOSUB 125:°:G0TO 110 

a PÜKE AD+21.0:POKE Alb+3a,0:G0T0 58 


Keen 


1253 REM ### SFRITEBEWESUNGEN 44% 

138 PRINT" BIRISH"TABC112"+T III!" 

135 11=13: 1[2=176:K1=120:K2=176+SINCHA3 #18: Id=U1 74: TV: Ku=O 
149 KY=4:FOKE AD+21,8:POkKE AD+38,0:GOSLURB 175:FOKE AD+21,3 
145 GOSUB 175:IF PEEKCAD+38)=2 THEN 145 

1598 GOSUB 248: 1=1/14:K=V2/4 

1532 I4= ICHS KB: TV=-1#SINCHBD SC KUSKEHEOS CHA KVSK#SIHEHRD 
158 GOSUB 175:IF I1<£9 OR K1X3 OR 115243 OR K1>245 THEH RETURN 
165 IF 12£3 DR K2<9 OR 123133 ÜR K25193 THEH RETUFRH 

17a 5CTO 154 

175 PÜKE AD, I1:POKE Ab+1,1I2:POKE AD+2,K1:POKE AD+3,K2 

128 T1=11+IM: I2=12+ 1 K1=K1+EM  EZ=K2+KW RETUFRH 


Erläuterungen: 
‚Klangeffekte’ und ‚Spritedaten’ entnehme man 2.1.1. 


Neu hinzugekommen sind drei DEF FN für Umwandlungen vom Gradmaß ins Bogenmaß 
und umgekehrt sowie die Umkehrung des Kosinus via Arcustangens (Z.A®). 


Die Vektoren v, und Va wurden jeweils in zwei Komponenten zerlegt, um die Sprites nach 
dem Zusammenstoß weiterdirigieren zu können (Z.130). Um bei der Bewegung der Sprites 
die Winkel besser abschätzen zu können, werden durch Z.13® zwei Pluszeichen als Markie- 
rungen gesetzt, s. Testbeispiel. (Das Rücksetzen des Cursors ist für die Wiederholung der 
Bewegung gedacht!). 


2.2 Bewegungen unter Berücksichtigung des Luftwiderstandes 


c) Testergebnisse 


1) miink3 =? 
ne inka = 71 
„linmis = 75 
Hirkelcar3d)? 28 
„1= 1.71 m/s 
swa=4,7 mE 


Hinkel zwischen v1 und v2 


Stossablauf vorfuehrern” 


vor dem StoN 


3a Grad 


nach dem Stoß f v=1,71mi/s 


+ 


©, 


v2=4,Tmis 


Man kann zeigen, daß im Falle von m; = m, stets « + ß = 90° (Bestätigung u.a. durch 
Proton-Proton-Streuung) 


mi ink3 = 72 

nz ink3 =9°75 

„l inm/z = 758 

Hirkellarad)7 68 

vi = 7,14 m/s 

ven 2.23 m/s 

Winkel zwischen vl und v2 = 193.3 Grad 


2.2 Bewegungen unter Berücksichtigung des Luftwiderstandes 


Wenn man die Aufprallgeschwindigkeit eines Fallschirmspringers oder die Beschleunigungs- 
dauer bis zur Höchstgeschwindigkeit eines Autos berechnen will, kann man Formeln wie 
s=a/2:t?,v=at oder v=./2as nicht anwenden. 


Es gilt nämlich: Wenn ein Körper mit dem wirksamen Querschnitt A und der Geschwindig- 
keit v sich im lufterfüllten Raum bewegt, so erfährt er eine hindernde Reibungskraft vom 
Betrag 


Hierbei muß man kohärente Maße achten, also z.B. A in m?, v in m/s, und p, die Dichte 
der Luft, in kg/m angeben, um die Kraft R in N (Newton) zu erhalten. Die Formel gilt nur 
für Geschwindigkeiten erheblich unter der des Schalls (340 m/s), (siehe Anhang). 
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Der sogenannte Widerstandsbeiwert c,, stellt einen Faktor dar, der weitgehend von der 
Form des Körpers abhängt und daher starken Schwankungen unterliegt, wie man den fol- 
genden Skizzen entnehmen kann. 





N 


TUR 0,05 


Bei Tempo 130 km/Std. würde z. B. ein PKW mit A=2 m? und einem Beiwert von 0.3 
einen Großteil seiner Antriebskraft zur Überwindung des Luftwiderstandes R = 508 N be- 
nötigen! 


2.2.1 Senkrechter Wurf 


a) Vorüberlegungen 


Beim aufsteigenden Körper wird die Bewegung sowohl durch sein Gewicht G bzw. die Erd- 
beschleunigung g (man beachte G = mg) als auch durch die Reibung R bzw. der ihr zuzu- 
ordnenden Verzögerung a gehemmt (Grundgleichung der Mechanik); beim fallenden Kör- 
per hingegen wirkt nur noch R verzögernd, G hingegen beschleunigend. Im letzten Fall 
wird die resultierende Beschleunigung immer geringer, um schließlich Null zu werden, wenn 
R betragsmäßig G erreicht hat; von da ab verläuft die Bewegung stationär, die konstante 
Geschwindigkeit v„. kann man aus der Gleich G=R bzw. mg=c,, ‘5 "A: v2, vorher- 
sagen (s. Anhang). 


Die resultierende Beschleunigung ist also eine zeit- und richtungsabhängige Größe; wenn 
man sie zum Zeitpunkt t durch 
alt)=gt an 

m 
darstellt, muß man für die Größen der rechten Seite noch Vorzeichenvereinbarungen treffen. 
Wir wollen vereinbaren, daß die nach oben gerichtete Geschwindigkeit oder Beschleunigung 
ein positives Vorzeichen erhält und die nach unten gerichtete Größe ein negatives. Bei die- 
ser Gelegenheit vereinbaren wir für die Wege ebenfalls, daß die Erdoberfläche den Null- 
punkt einer auf ihr senkrecht stehenden Geraden kennzeichnen solll mit negativem Bereich 
im Erdinnern. 
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Das hat zur Folge, daß wir g stets mit —9,81 belegen müssen und Rt} immer ein der 
augenblicklichen Geschwindigkeit v(t) entgegengesetztes Vorzeichen beinhalten muß, was 
durch eine leichte Abänderung der ursprünglichen Formel erreicht werden kann: 


Rit)=-cu 5A vl vlt) 


Wir kennzeichnen nun die Position des Körpers zum Zeitpunkt t mit y(t); seine Momen- 
tangeschwindigkeit an dieser Stelle sei v(t) und die augenblickliche Beschleunigung alt). 
Unser Ziel ist es, die genannten Größen 

auch zu einem späteren Zeitpunkt t + At zu kennen. 


Für hinreichend kleine At ergibt sich zunächst die Möglichkeit 
y(t+At) ylt) +v(t) At, y(t+ At) 


weil aber v(t) zu groß (oder zu klein) ist, verglichen mit der Durchschnittsgeschwindigkeit 
längs At, und v(t + At) zu klein (zu groß), nimmt man besser eine Geschwindigkeit nahe 
der Zeitmitte des Intervalls (t, t+ At), symbolisch 


At 
Il vier as yi+v (1432) At, 
damit der Fehler minimal wird; hierbei gewinnen wir v (t + =) gemäß 


II v [t+ 2)> v(t) tat) 5 
Wenn wir auf diese Weise y(t + At) erhalten haben, wiederholen wir den Vorgang, wobei 
wir die Geschwindigkeit in der neuen Zeitmitte wieder nach Ill, aber mit At statt y be- 
rechnen und anschließend mit | den neuen Wegpunkt. Von jetzt ab kann alles unverändert 
weiterlaufen, man muß lediglich bei der Ausgabe von y und v daran denken, daß Wege und 
Geschwindigkeiten zeitlich um 7 versetzt sind; dies ist in dem folgenden Ablaufplan be- 
rücksichtigt. 


b) Allgemeiner Ablaufplan 
Anfang des Programms 


Eingabe von m, A, c,, At und den Anfangswerten für v und y 
g=-9.81; e=1.3 


Wiederhole R--cy ZA veiv 
a+-g+tR/m 
v+-vta’äAt (beim ersten Durchlauf v-vta' ar 
y+-ytv'At 


At 
Ausgabe von vta , und y 


bis Abbruchbedingung erfüllt 


Ende des Programms 
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c) BASIC-Übersetzung 


88 


rem X%% senkrechter wurf 3%#% 


perint'Il m.A,cw,dt,vo,yo" 
input m,a,cw,dt,v ,y 
qy=-9,81:h=9.65:1i1=8:print 


r=-cwih%ta%su%abs (u) :i=it+til 

b=3+r/m:if i=1 then v=euv+bK.5Sitdt:goto45 
vzu+bidt 

yzy+tvkdt :w=y+,5Skbkdt:if y{B then end 


erint" t =":s=i%kdt:n=10 :90sub 78:print'B"tab(8-1)s 


erint"W'tab(153'"'y =":3=4:n=1008 :gosub 78: print''tabt22Z-Ds 
erint'B'tab (30) "u=" :s=u :n=108 :g0osub”7B:print'"tab (35-1235 
goto 38 

s=int(in#ks+t.5>/n 


lzlen(str$(Cint(tabs(s)))): if intets)=-1 or intis)=B thenl=i 
return 


ready. 


Erläuterungen zum BASIC-Programm: 

p/2 ist in h untergebracht; i zählt die Zeitabschnitte dt und bewirkt außerdem die Halbie- 
rung von dt im ersten Durchlauf (Zeile 35). B enthält die Beschleunigung. Ab Z.50 geht 
es nur noch um eine sachgerechte Formatierung der Ausgabe. 


2.2 
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d) Testbeispiele in mn Sum Eun: 


150m 


100m 


Som 





| 







BaBEN > min | 
Es km „en ar Hmm | 
0 mi u) Fi 
Vo 
=15,51 = 20 
Erläuterungen: 
1. Freier Fall aus 200 m Höhe ohne Luftwiderstand; man setze m # OD (wegen der Division 


in Programmabschnitt 2.);c, = 0; At=1;v=0;y=200. 
Vielleicht erstaunt es Sie, daß die angezeigten Werte trotz der relativ großen Zeitspanne 
exakt sind (siehe Anhang)! 


. Fall aus 200 m Höhe mit Luftwiderstand; man setze z.B. m = 100; A = 0,2; c,, = 0,6; 


At=1;v=0;y=200. 
Dies wäre die Situation eines Menschen, dessen Fallschirm sich nicht öffnet, wobei c,, 
noch günstig abgeschätzt wurde. 


. Fall aus 200 m Höhe mit (besonders stabilem!) Regenschirm; man setze m = 100, 


A=1;c, "= 1,6; At = 1;v=0;y = 200. Die Bewegung ist fast stationär. 


. Absprung aus 200 m Höhe mit einem Fallschirm; hierbei ist zu bedenken, daß dieser 


sich erst bei einer gewissen Geschwindigkeit — etwa mit einem Hilfsschirm — öffnet; 
wir wollen hierfür 3 s ansetzen. Eingabe: m = 100; A = 30; c,, = 1,8;t = 0,01 (!); 
y = 156; v = - 29,43. 
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Wegen der hohen Anfangsgeschwindigkeit muß man zunächst mit kleinem At arbeiten; 
später kann man zu At = 0,1 und dann zu At = 1 übergehen. Die stationäre Geschwindig- 
keit, die u.U. auch etwas später einsetzen könnte, beträgt 19 km/Std. entsprechend 
5,29 m/s. 

5. Ein Ball von 6,5 cm Durchmesser und 40 g Masse wird mit 20 m/s senkrecht nach oben 
geworfen. Eingaben: m = 0,04; A = 0,003318; c„ = 0,3;t=0,2;v= 20; y=0. 
Interessant ist u. a., daß die Aufschlaggeschwindigkeit mit ve = 15,51 m/s deutlich unter 
der Abwurfgeschwindigkeit v„ = 20 m/s liegt; die Differenz an kinetischer Energie hat 


sich offenbar in Wärmeenergie verwandt (theoretischer Wurfgipfel: H = v5/2g = 400: 
19,62 = 20,39 (m)). 


2.2.2 Schiefer Wurf 
a) Vorüberlegung 


Die Startbedingungen sind durch die Ortskoordinaten xXo, Yo und die Anfangsgeschwindig- 
keit Vo gegeben; letztere ist durch ihren Betrag vu und den Winkel «9, den sie mit der po- 
sitiven Richtung der x-Achse bildet, festgelegt. 


Der Grundgedanke des folgenden Programmablaufs ist der, daß alle beteiligten Größen in 
zwei Komponenten bezüglich der x- und y-Richtung zerlegt werden und jede Komponente 
so behandelt wird wie es im vorigen Programm erläutert wurde; die physikalische Recht- 
fertigung dieses Vorgehens ist das Prinzip der ungestörten Überlagerung von Bewegungen 


b) Allgemeiner Ablaufplan 


Anfang des Programms 


Eingabe von Xo, Yo, Vo, &0, M, A, C,,, At 
g=-9.81; o = 1.3 


pP 
Vx*-Vo'C0SQg; V,= Vo’ sinag; K- = ew'z Alm 


Wiederhole a.=-K v. IvI;a,=g+tK vv | 
v„=-v.+ta, At;v,=v,+ta, At 
(beim ersten Durchgang mit At/2 arbeiten) 
x+-xtv, At;y=y+tv,'At; Ausgabe x, y 
vı=-v, ta, At/2;v2=v,+a,'At/2 
(v4, Va) in die Polarform (v, «) überführen; v, « ausgeben 
bis Abbruchbedingung erfüllt | 


Ende des Programms 

V4,V.» bedeuten die korrigierten, d.h. zu den Bahnpunkten x, y passenden Geschwindig- 
keitskomponenten; wenn man nur die Bahnkurve haben will, könnte man die letzten bei- 
den Zeilen des Wiederholungsblocks weglassen. 
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c) BASIC-Übersetzungen 


18 REM *%%+% SCHIEFER WURF 3% 


15 DEF FNRD<CZI=INTCCZ+8.0085) 410608) 7108 
28 PRINT" %0,Y0,V0,A0,M,A,CW,DT" : INPUTX,Y,VO,W,M,A,CW,DT 
25 6=-9.81:R=1.3:K=-CW#R/2FA/M :W=WKar/ 188: UR=VORCOS CH) : VVY=EVORSINCH) 


38 AX=KEVKHABS (VI :AYSG+HKAUVERBS (CV VD 

35 IF FLAG6=8 THEN VR=VX+HAXKDT/2:VNY=VY+AYADT/2:FLAS=1:60T0 45 
48 VR=SVStHARKDT:VVY=SVVY+AYADT 

453 KaXtVXEDT:YSY+HVY%DT 


58 PRINT :V1=VX+AX#DT/2:V2=VV +AYADT/2:V=SQOR (VA1RV1H+V2RV2) :W=SATN (V2/V1) 1808 /7 
55 PRINT" X ="FNRDOO"M'TABC24)"V ="FNRD (VI "M/S" 

88 PRINT" Y ="FNRDCWY"M"TABC28) "ALPHA ="FNRDIWI"GRAD": IF Y>8 THEN 38 

READY. 


Erläuterungen: 
In Z.15 wird auf zwei Dezimalen gerundet. 


Der Speicher FLAG (Signal) enthält nach dem Start eine Null und sorgt dafür, daß die 
ersten beiden Geschwindigkeiten mittels dt/2 errechnet werden. 


Man beachte, daß der Aufruf von SIN und COS das Bogenmaß voraussetzt, deshalb erfolgt 
in Z.25 die entsprechende Umrechnung der in W befindlichen Gradzahl. 


Wir zeigen noch ein Programm mit graphischer Ausgabe der Wurfbahn; zu Z.21, 50, 80-95 
vgl. Kap. 1.2.6, vor dem eigentlichen Programm sind die dort vorgestellten Maschinenpro- 
gramme auszuführen. kx und ky (Z.20, 80, 85) setzen den Bildmaßstab und müssen zur 
STEP-Weite von Z.120, 125 passen. 


10 REM x#** ALLGEMEINE WURFBAHN RR 


15 REM #** SFEICHERINITIALISIERUNG #%*%* 

20 6=-9.81:ıR=1.3:KX=6:E\Y=5 

21 G61L=49205:6E=-49339: FH=49227:PS=49280: 
GA=49358 


25 REM *#*#* EINGABEN #%% 
30 FRINT'®&@ X0O,YO,VO,AD,M ‚A „EW,DT'“ 
35 INPUT xX,Y „VO, W,M „A ‚„ECW,DT 


4060 REM #%** AKTUELLE ZUWEISUNGEN RR 

45 K=-CW#R/2*A/M:W=W#Hr/ 180: VX=VORCOS (W: 
VY=VOxSIN(W) 

50 SYS FPH,16:5YS GE:IF S1i=0 THEN SYS GL: 
GOSUB 100 

33 REM #%** WIEDERHOLUNGSELOCEK ar 

80 AX=KHVXRABS (VX) SE AY=G+ERVYRABS (VY) 

65 IF 52=0 THEN VX=VX+AX*DT/2: 
VY=VY+AY#*DT/2Z:52=1:60T0 75 

70 VX=VX+AX#DT: VY=VY+AY*DT 

73 K=X+VXx#DT:Y=Y+VYx*DT 

80 I=10+EX#X: IF 13197 THEN 95 

85 J=170-EY*Y:IF J<O THEN 55 

90 8SYS FS,I,JıIF J<190 THEN 55 

95 GOSUB 170:5YS 6A:52=0:60T0 30 
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100 


105 
110 
115 
120 


REM *%** UNTERFROGRAMME RR 


REM ** ACHSEN ZEICHNEN/MARKIEREN *#* 
FOR I=0 TO 319:8Y8 FS, I,190:NEXT 
FOR I=0 TO 199:8Y8 PS,10, I:NEXT 
FOR I=10T0 319 STEP 30:8Y8 FS,1,191: 
SYS PS,1,189:NEXT 

FOR I=190 TOD O STEP -25:5Y5 PS,11,1: 
SYS PS,9,I:NEXT 


150 REM x%*%* ACHSEN BESCHRIFTEN 2 2.2 
135 2Z=20:5=2: TT#='"5":6GOSUB 145: 


140 
185 
170 
175 
180 


Z=8: TTf="25":G0OSUB 145 
2=22:5=19:G0SUB 145:51=1ıRETURN 
LL=LEN (TT$) »AD=573544+2#320+5*8 
FOREK=1TO LL:HH=ASC (MIDFTTF,ER ,1)) 


> FORI1=0T07: UU=PEEK (S1200+8%HH+ II): 


FORE AD+II,UU:NEXTII 
AD=AD+8:NEXT ER 


KETURN 

REM ##* WARTESCHLEIFE Ar 
IF PEEK(203)<>60 THEN 175 

RETURN 


Änderungen bei Verwendung von Simons-BASIC: 


2 Simulationen aus der Physik 


Z.21 entfällt 
Z.50 lautet jetzt: IF S1 =O then HIRES 1,0: gosub 100 
Z.51 kommt hinzu: CSET2 


Z.90 bis zum Doppelpunkt: PLOT1,J, 1 


2.95 lautet jetzt: 


Z.100-Z.165 vereinfachen sich zu 


100 


REM *** UNTERPROGRAMME *r* 


REM ** ACHSEN ZEICHNEN/MARKIEREN ** 
LINE 0,190,319,190,1 

LINE 10,0,10,199,1 

FOR I=10T0 319 STEP 30:FLOT I,191,1: 
PLOT 1,189,1:NEXT 

FOR I=190 TO © STEP -25:PLOT 11,1,1: 
PLOT 9,I,1:NEXT 


REM #**  ACHSEN BESCHRIFTEN PRFE 
TEXT 32,192,"BSM",1,0,7 

TEXT 20,64,"B25M",1,0,7 

TEXT 150,192,"B25M",1,0,7 
S1=1:RETURN 


REM *%#* WARTESCHLEIFE *E% 
IF FEEH(203)<°>60 THEN 175 
RETURN 


GOSUB 175: CSET1: S2 = 0: GOTO 30 
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d) Testbeispiel (Ausdruck einer Bildschirmfeingraphik) 


23m 





Das Bild zeigt einen mit vo = 30 m/s unter einem Erhebungswinkel von 40° abgeschlosse- 
nen Fußball. Seine Masse wurde mit 250 g angenommen, der Querschnitt mit 5 dm? und 
c„ mit 0,35; At wurde 0,1 gewählt. Die Vergleichskurve für den luftleeren Raum erhält 

man durch Nullsetzen von c,,; sie stimmt exakt mit den Werten aus der bekannten Bahn- 


gleichung 
9 2 
y=x'tandotr an "x 
2:v2-c0Ss° Go 


überein! Man vergleiche auch mit H = =. = 99 = 18,95 (theoretische 
vo sin?« 30° - 0,985 
Wurfgipfel) und W = gg. = ag = 90,35 (theoretische Wurfweite). 


2.3 Raumfahrt und Himmeismechanik 
2.3.1 Satellitenbahnen 


a) Physikalische Grundlagen 


Wenn zwei Körper mit den Massen M und m den Abstand r voneinander haben, so ziehen 
sie sich gegenseitig mit einer Kraft des Betrags 


M an, wobei Y = 6,67 10! m?kg'!s’*; 





m 
F=y° 
2 


falls m, M in kg und r in m vorgegeben werden, erhält man F in N. 
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Wir betrachten zunächst den Fall, daß die Erde die Masse M und ein von ihrem Mittelpunkt 
im Abstand r befindlicher Satellit die Masse m verkörpern. Bezüglich eines rechtwinkligen 
Koordinatensystems habe der Satellit im Zeitpunkt t die Position x(t), y(t) und die mo- 
mentanen Geschwindigkeitskomponenten v, (t), v, (t) (Richtungsvereinbarung wie in 2.2.2). 
Die weitere Bewegung des Körpers ist dann wie folgt vorhersehbar: Wir zerlegen die zum 

> ur a © 
Erdmittelpunkt gerichtete Anziehungskraft F auch in zwei Komponenten F,,F,, für deren 
Beträge infolge ähnlicher Dreiecke der Zusammenhang 
Fx 


X 
ET bzw. 


gilt. Aus der Grundgleichung der Mechanik folgt dann für die zugeordneten Beschleunigungs- 
beträge 


F{t) Fit) 
und a,flt) = 


F, y 


—_ 
Fr 








a,(t) = m 


und mit der allgemeinen Gravitationsformel 


x (t) vlt) 
bzw. = —-n.M - —— 
r(t)? zw all=7y r(t)? 


Man beachte, wie das Vorzeichen der beiden Beschleunigungskomponenten a, und a, von 
x und y beeinflußt wird! 

Der weitere Verlauf ist aus Abschnitt b) ersichtlich, dessen letzterer Teil aus 2.2.2 leicht 
gekürzt übernommen werden konnte. 





a,(t)=-y"M- 


b) Allgemeiner Ablaufplan 
Anfang des Programms „Satellitenbahn’' 
Eingabe von x, Y, Vx,V„‚At,K=-yM 


Wiederhole | S = (x? +y?)”? 


K K 
vevtx At yevtyo dt 


(Erster Durchgang mit At/2) 
x-xtv. At; ye-yt+tv, At 
Ausgabe von x und y 


bis Abbruchbedingung erfüllt 


Ende des Programms 


c) BASIC-Übersetzungen 
10 rem *#** satellitenbahnen ##%# 


15 def fnrd(z)=eint ((z+0.05)*10)/10 


20 input'Sq xo in Megameter Y: 
input '" yo in Megameter ny 
25 input "vx in km/s "YEVXG 


input " vy in km/s EVy 


2.3 Raumfahrt und Himmelsmechanik 27 


3ÖO input " Zeitabschnitt in sec "jdt: 
input " Anzahl der Abschnitte';n 

55 input '" Zentralmasse in kg "jm 

40 vx=vx/1000:vy=vy/1000:k=-m#6.67e-29: 
print 


45 for i=i ton 

SO r=sqr (x#x+y*ty)ıszrtrtr 

s5 if i=1 then vx=vxtx%#k/s%*dt/2: 
vy=vy+tytk/s*dt/Zıgoto 65 

BU vx=evXxtxtk/stdtivysvytytk/stdt 

65 xextvxtdt:ıy=sytvy#dtir=sar (x#tx+ty*y) 

70 print" x="fnrd(x)tab (N "Mm": 
print" y="fnrd(y)tab (25) "Mm"; : 

75 print" r="fnrd(r)tab (37) "Mm" 

80 next i 


Erläuterungen: 

In Z.15 wird auf eine Nachkommastelle gerundet. 

In Z.40 werden die Geschwindigkeiten und die Konstante k = - Ym dem Maß Mm/s ange- 
paßt, s. Anhang. 

Interessanter gestaltet sich die Ausgabe der Flugbahn in hochauflösender Graphik: 


1O rem **#* satellitenbahnen *%** 
15 91=49205: ph=49227:ps=49260: ge=49339: 
ga=-49359:kx=10:ky=8 


20 input'Sq xo in Megameter "un: 
input " yo in Megameter .. 

25 input " vx in km/s "vs 
input "vy in km/s HEVy 

so input " Zeitabschnitt in sec "sdt 

55 input " Zentralmasse in kg '";im 


40 vx=vx/1000:vy=vy/1000:k=-m*6.67e-29: 
sys ge:sys ph,liöd:if s=O then gosub100 

45 rem *%** wiederholungsblock #%*# 

SO r=sgqr (xtxty%ty)ssertrir 

5 if flag=0 then vx=vx +tx%k/s#dt/2: 
vyzvyty&k/s#tdt/Z:flag=1:goto 65 

BO vx=evVatxtk/stdtivysvytyrk/stdt 

85 x=entvxtdtiysytvyrdt 

70 i=100+kx#xsif i<O or i>31979 then 50 

75 3=100-ky#y:if j<O or j>19979 then 50 

80 sys ps,i,j:if peek(203)<>40 then 50 

85 if peek (ZO3)<>4 then 85 

90 sys ga:flag=O0:print chr#(147)ıgoto 20 


100 rem #** unterprogramme KR 


105 rem *%* achsen zeichnen/skalieren *#* 
110 sys gl:s=1:for i=Ö to 319: 
sys ps, i ‚l0O0:nexkt 
115 for i=0 to 199:sys ps,100, i :next 
120 for i=0 to 319 step 10:sys ps,i,10l: 
sys ps,i,77:next 
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125 i=200: j=102:sys ps,i,j: 
3=78:sys ps,i,) 

130 for i=4 to 1797 step 8:sys ps,101,i: 
sys ps, 977,i:next 


135 rem #%*# achsen beschriften *%*% 

140 z=15:5=-24:ttF#='"10000km'":gosub 145: 
z=7:5=-15:tt5='"5000'":gosub1l45:return 

145 IA1=lentttF) vsad=57344+z2#+320+5#8 

150 forkk=1to 11l:hh=asc (mid#F(tt#,kk,1)) 

155 forii=0t0o7:uu=peek (51200+8*#hh+tii): 
poke ad+ii ,„uu:nextii 

180 ad=sad+8:next kk 

155 return 


Erläuterungen: 


Bevor Sie das Programm starten, müssen Sie die in Abschnitt 1.2.6 bereitgestellten Maschi- 
nenprogramme 'GRAPHIK EO V4’ und ‘ZEICHENSATZ V4' laden und ablaufen lassen — 
es sei denn, Sie nutzen Simon s-BASIC. 

Zu den die Graphik betreffenden Zeilen 15, 40, 70-80, 90, 100ff siehe ebenfalls Abschnitt 
1.2.6, zu kx, ky vgl. 2.2.2. 

Man beachte auch die veränderte Bedeutung der Variablen i. Mit der Leertaste kann die Er- 
stellung des Graphen unterbrochen werden, mit der f1-Taste kommt man in den Spiegel 
zurück und kann der alten Kurve eine neue hinzufügen! (’60' bzw. '4’ sind die zugeordne- 
ten Tastencodes in Zelle 203; wer mit RUN/STOP-RESTORE abbricht, muß u.U. Graphik 
und Zeichensatz re-initialisieren wie in Abschnitt 1.2.6 beschrieben). 


Änderungen bei Verwendung von Simon’s-BASIC: 


Z.15 entfäilt ('kx = 10: ky = 8’ s.u.), Z.35 wird zu Z.30. 


2.35 jetzt: vx =... 29: if s= DO then hires 1,0: gosub 100 
Z.40 jetzt kx = 10: ky = 8: cset 2 

Z.80 jetzt: plot i, j, 1:... 

Z.90 jetzt: cset 1: flag = O: print chr$ (147): goto 15 


Die Unterprogramme vereinfachen sich wie folgt: 
100 rem #** unterprogramme KRH 


105 rem *%* achsen zeichnen/skalieren ** 
110 line 0,100,319,100,1: 
line 100,0,100,199,1 
115 for i=0 to 319 step 10:plot i,101,1: 
plot i,99,1:next 
120 i=200: j=102:plot i,j,l: 
j= 98:plot i,j,l 
125 for i=4 to 199 step 8BS:plot 101,i,l: 
plot 99,i,1l:next 


130 rem #*%* achsen beschriften Exr 
135 text 200,102,"b10000km",1,0,7 

140 text 102,58,'b5000km",1,0,7 

145 s=l:return 
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d) Testbeispiel (Ausdruck einer Bildschirmfeingraphik) 





In Anwendung dieses Programms haben wir einen Satelliten in eine Erdumlaufbahn ge- 
bracht; damit er nicht sofort durch den Luftwiderstand gebremst wird, nehmen wir an, daß 
er nach dem senkrechten Start in 629 km Höhe entsprechend 7000 km vom Erdmittel- 
punkt entfernt in die waagerechte Richtung umschwenkt und daß dann Brennschluß ist. 
Seine weitere Bewegung hängt dann nur noch von der Brennschlußgeschwindigkeit ab; für 
die Fälle vo = 7,54 km/s und vo = 9 km/s ist die entsprechende Bahn dargestellt; hierbei 
wurde dt = 162 s gesetzt (Eingabe: xo= 7, yo=0,v,=0,v, = 7.54 bzw. v,=9). 
Besonderes Interesse verdient jene Brennschlußgeschwindigkeit, die den Satelliten auf 
einem Kreis um die Erde laufen läßt; der benutzte Wert stimmt recht genau mit dem 
theoretisch zu erwartenden überein: 

. m2.r3 
mer bzw. T = me 
liefert in der Besetzung r = 7 : 106 m; y = 6,67 : 10-1! m? kg”! s"2;M = 5,974 : 1024 kg 
neben der Umlaufzeit T = 5829,5 s nach v = — -r diesem Wert; die Umlaufzeit stimmt 
auch gut mit dem aus der Zeichnung ersichtlichen Wert von 36 mal 162 gleich 5832 s über- 
ein (97,2 min.). Das zweite Keplersche Gesetz (Verbindungsstrecke Erdmittelpunkt — 
Satellit überstreicht in gleiche Zeiten gleiche Flächen) wird ebenfalls überzeugend bestätigt: 
Perigaum: 0,5: 7 :20= 70; Apogäum: 0,5:17,5:8=70 (Wir behandeln die Sektoren wie 
Dreiecke und erhalten 20 mm bzw. 8 mm für die Basen). 





Erst beim dritten Keplerschen Gesetz werden die geringen Ungenauigkeiten von Weg und 
Zeit infolge der dritten bzw. zweiten Potenz etwas vergrößert: 


T?2 (83-162)? 2 (36-162)? 
en nn 73” 9,3. 10% und IE Sa 
a (1,25-10°) a” (7.106)? 
beinhalten eine Abweichung von 6 bzw. 2% zu der Kepler konstanten der Erde (9,9: 10"). 
Die Umlaufzeit von 225 min. für die elliptische Bahn ist wieder auf etwa 1 % genau; wenn 
Sie übrigens die Kreisbahn als Parkbahn für eine Mondlandung benutzen wollen, müssen 
Sie nur die Geschwindigkeit im Perigäum schlagartig um etwa 3 km/s erhöhen (siehe An- 
hang 2). 

Größere Genauigkeit erzielt man dadurch, daß man über einen Schleifenzähler nur jedes 
zweite oder zehnte Wertepaar (x, y) ausgeben läßt (bei klein gewähltem T). 


= 10,1: 10-4 
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2.3.2 Zweikörperproblem der Gravitation 


a) Physikalische Grundlagen 


Wir sagten, daß sich Erde und Satellit wechselseitig anzögen, konnten aber wegen des 
Massenverhältnisses von etwa 10?':1 davon ausgehen, daß der Satellit keinen Einfluß 
auf die Bewegung der Erde nehmen konnte. Das ändert sich schon bei dem Paar Erde- 
Mond, wo das Massenverhältnis von der Größenordnung 100:1 ist und eine Bewegung 
um den gemeinsamen Schwerpunkt stattfindet, der allerdings noch im Innern der Erde 
liegt; wenn die Massen der beteiligten Körper gar von derselben Größenordnung sind wie es 
z.B. bei Doppelsternen öfter vorkommt, können wir das obige Programm nicht mehr ver- 
wenden. 

Das Prinzip der ungestörten Überlagerung von Bewegungen erlaubt uns jedoch, das Pro- 
gramm so zu erweitern, daß es — mit vertauschten Rollen für M und m — zweifach ge- 
nutzt werden kann; im einzelnen ist damit folgendes gemeint: 


y-Achse 





x-Achse 


Zu einer bestimmten Zeit mögen die beiden Körper die skizzierte Lage einnehmen; ähn- 
lich wie früher ist die Beschleunigung von m in Richtung der x-Achse durch den Ausdruck 
_Yy . M 
am = I (Km = Xm) 
r 





gegeben und für eine hinreichend kurze Zeitspanne als konstant anzusehen. Nun betrachten 
wir isoliert davon den Einfluß von m auf M und erhalten 
__ym 


dMx 3 " (xm Xm) 
r 





Weil sich die Differenzen in den Klammern nur durch die Vorzeichen unterscheiden, belege 
ich einen Speicher namens Ax mit xy — Xm und analog Ay mit ym — Ym Und schaffe 
(Ax? + Ay2)®Y2 auf S und erhalte so 


K K 
amx * g AX amy  s Av 

k k 
anıx *  AX amy * c AY 


wobei K mit YM und k mit -ym zu belegen ist. 
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Entsprechend erhält man insgesamt vier Komponenten für die Momentangeschwindigkeiten 
und vier Komponenten für die Ortskoordinaten der beiden Körper. Der vollständige Pro- 
grammablauf sieht dann so aus: 

b) Allgemeiner Ablaufplan 

Anfang des Programms Zweikörperbewegung 

Eingabe von Xmı YMı Xmı Ymı VYxMı VyM: Vımi Vym: K= yM, k = ym At 

Wiederhole | Ax + xy " Xm; Ay = Ym " Ym 


Se (Ax? + Ay??? 


K 
Vm *Vym +2 Ax At; Xm = Xm + Yym ' At 
Kıı - At: + +yv - At 
Vym * Vym + S y t;Ym * Ym ym 


k 
Yun * Vum +5" Ax At Xm m + Vum At 


Yun = m + Ay At;Ym * Ym + Yym ' At 


Ausgabe von Xy., YM ı: Xmı Ym 
bis Abbruchbedingung erfüllt 
Ende des Programms Zweikörperbewegung 


Erläuterungen zum allgemeinen Ablaufplan: 


Da ohnehin viel auszugeben ist, wurde auf die Erfassung der korrigierten Geschwindig- 
keiten verzichtet. In den unten folgenden graphischen Darstellungen gibt der Abstand zwi- 
schen zwei Wegpunktten einen Hinweis auf die mittlere resultierende Geschwindigkeit im 
Zeitabschnitt At. (Der linke Wiederholungsblock muß anfangs mit wieder mit At/2 durch- 
laufen werden!) 


c) BASIC-Übersetzungen 
1O rem **%* zweikoerperproblem #%#%* 


15 def fnrdtz)=int ((z+0.05)*10)/10 


20 input"Sq »xM in Megameter “xl: 
input yM in Megameter “yl 
25 input "km in Megameter “ıxza 
input " ym in Megameter “ıy2 
30 input " vxM in km/s "uls 
input " vyM in km/s “vi 
s5 input '" vxm in km/s "“suzs 
input. " vym in km/s "v2 
40 input "Min kg “ml: 
input "min kg "ımz 
45 input " Zeitabschnitt in sec "ıdt:ı 
input " Anzahl der Abschnitte'"sn 


90 c=,001l:ul=ul%#tcıvilsviltcıursurtc 
ao v2sv2tcıft=6.67e-29:kl=ml%tık2=-mErt: 
dt=dt/Z2:gosub120:dt=dt*2 H 


0 for i=-l ton 

685 gosub 100:gosub 120 

70 next i 

75 end 

100 »2ex2+ru2tdt: yzsy2+vzrtdt: 
»l1=x1+tul#sdtsyli=yl+virdt 

105 print" x1="fnrd(x 1) tab (11) "Mm": 
print‘ yi="fnrd(yl)tab (Z7) Mm" 

110 print" x2="fnrd (x2)tab (11) "Mm"; : 
print‘ y2="fnrd(yZ)tab (27) ''Mm" 

115 return 

120 dx=x 1-2: dy=yl-yZır=ssar (dx*dx+tdy*#dy) 
ıs=r*trir 

125 ul=ul+k2/s#tdx*dt: vi1=v1+k2/stdy#dt: 
u2=u2+k1/s#tdx*tdtı v2=v2+ki1/stdy*dt 

120 return 

150 if peek (2035)<>60 then 150 

1559 return 


Anmerkungen zum BASIC-Programm: 
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Wie man aus Zeile 50 ersieht, sind die Maße Mm (Megameter) und s (Sekunde) vorausge- 
setzt. In Zeile 55 wird der einmalige Startlauf mit halber Zeit arrangiert. 


(Zur Belegung von 'f‘ s. Anhang) 
Ab Z.100 werden die Positionen und ab Z.120 die Geschwindigkeiten neu berechnet. 
Wie schon in 2.3.1 lohnt sich auch hier wieder eine Programmversion mit graphischer Aus- 


gabe: 


OÖ rem *#%%* 


zweikoerperproblem #%% 


3 91=49205: ph=49227:ps=49260: ge=497357: 


ga=49358:kx=1l:ıky=.8:c=.001:1=6.67e-279 


20 input'5q xM in Megameter “ul: 
input " yM in Megameter “yil 
25 input "m in Megameter 2a 
input " ym in Megameter “y2 
So input " v»xM in km/s "ul: 
input " vyM in km/s “vi 
35 input " vxmin km/s "sus: 
input " vym in km/s "v2 
4) input "Min kg “ml: 
input "min kg “ım2 
45 input " Zeitabschnitt in sec ";dt 
sO ulzultc:vi=evl#tcıu2sustcı v2sevztch 


Ki=ml#f:k2=-m2rf 
55 dt=dt/2:gosub140: dt=dt*2 
sys ge:sys ph,löd:if flag=O 
then gosub 160:z=0 


2.3 


65 
t 
70 


75 


80 


Raumfahrt und Himmelsmechanik 


gosub 7O:gosub 140:if peek (205) < >60 
hen 653 

if peek (Z03)<> 4 then 70 

sys gasprint chr$#(147):goto Z0 


rem ##%* unterprogramme RR 


rem #* neue positionen berechnen *%* 

»2exr2tudtdt: y2ey2+v2#dt: 

xi=x1l+tul®dtsyi=yl+tvirtdt 

rem ** neue position einzeichnen ##* 
i=100+kx*x1s:if i<O or i>319 thenil30 
j=-100-ky*yl:if j<öO or j>197 theni30 
if z/5=sint(z/5) then sys ps,i,) 
i=100+kx#xZ:if i<O or i>317 then1350 
j=100-ky*tyZsif j<ÖO or j>197 theni3o 
if z/5=eint(z/5) then sys ps,i,)J 
z=z+tl:return 


rem %*%* neue geschwindigkeiten *#% 
dx=x1-xZ:ıdy=yl-y2ır=sqar (dx*dx+tdy*dy 
ıs=ertrir 

ul=ul+k2/s*tdx#dt: vi=svitrk2/s#tdy*dt: 
u2=u2+k1/stdx dt: v2=v2+k1/s#tdy*dt 
return 


rem ** achsen zeichnen/skalieren *# 
sys gl:flag=i:for i=0 to 3S19:sys ps 
‚100:next 

for i=0 to 199:sys ps,100, i :next 
for i=0 to 319 step 10:sys ps,i,10l 
sy5 ps,i,77:next 

i=200: j=102:sys ps,i1,Ji 

j=98:sys ps,i1,) 

for i=4 to 199 step 8:sys ps,10l,i: 
sys ps, 77,i:next 

rem ** achsen beschriften *%* 
z=e13:5=22: tt#="100000": gosub1 95: 2=7: 
s=7ı tt$='"50000": gosub 195: return 
l11=lenttt#) :ad=537344+z#*320+5%*8 
forkk=1to 11l:hh=asc (mid#(tt#,Ek,1)) 


5 forii=0t07:uu=speek (51200+8*hh+ii): 


poke ad+tii,uu:nextii 
ad=ad+8ö:next kk 
return 


) 
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Erläuterungen: 


Vor dem Start GRAPHIK EO V4’ und „ZEICHENSATZ V4° ablaufen lassen! Bei Simon’ s- 
BASIC sind stattdessen folgende Änderungen zu beachten: 


Z.15: kx = 1: ky = 0.8: c = 0.0001: f = 6.67 e-29 
Z.50: z=0: hires 1,0 anfügen 

Z.55: gosub 160 anfügen 

Z.60: entfällt 

Z.75. cset 1: print chr$g (147): goto 20 

Z.110, 125. plot i, j, 1° anstelle von ’sys ps, i, j‘ 

Ab Z.155: 

155 rem ** achsen zeichnen/skalieren ## 


150 
165 
170 
175 
180 
185 


1970 
195 


line 0,100,317,100,1: 
line 100,0,100,197,1 
for i=0 to 3197 step 10: 
plot i,101,1:plot i,99,1:next 
i=200: j=102:plot i,j,l: 

j= 98:plot i,)j,l 
for i=4 to 197 step 8: 
plot 101,i,1:plot 99,i,i:next 
rem %*%%* achsen beschriften *%* 
text 179,104,"b100000km",1,0,7 
text 38, 564,'"b 50000km",1,0,7 
return 


d) Testbeispiele (Ausdrucke von Bildschirmfeingraphiken) 


Beispiel I 

xM in Megameter 7? ..-50 
yM in Megameter ? ( 
m in Megameter ? 150 
ym in Megameter ? ®) 
vxM in km/s ? Ö 
vyM in km/s ? -0.2 
vxm in km/s ? 19) 
vym in km/s ? 0.6 
Min kg ? &e24 
min kg 7? Ze24 
Zeitabschnitt in sec 7 2000 


Man beachte, daß infolge Z.125 nur alle 10*s die neuen Positionen ausgegeben werden! 
Für M wurde die Erdmasse gewählt und m = 1/3 M gesetzt. 


Beispiel II 

xM in Megameter ?o 

yM in Megameter ? -50 
»m in Megameter ?-o 

ym in Megameter 7 50 
vxM in km/s 7.3 
vyM in km/s ?’oö 
v»m in km/s ? 1.9 
vyn in km/s ?-o 
Minkg ? 5de24 
min kg 7? Ze24 


Zeitabschnitt in sec 
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Die graphische Darstellung zeigt zwei typische Ellipsen mit dem Schwerpunkt der beiden 
Massen als gemeinsamen Brennpunkt. Weil der vektorielle Gesamtimpuls zu Beginn der Be- 
wegung Null ist, bleibt die Lage des Schwerpunkts unverändert, was man äußerst exakt be- 
stätigt findet, wenn man zu einer bestimmten Zeit die Positionen von M und m durch eine 
Strecke verbindet. Auch das zweite Keplersche Gesetz ist deutlich erkennbar, wie man mit 
der in Abschnitt 2.3.2 beschriebenen Methode feststellen kann. 


Wenn man die Startwerte leicht variiert, indem man vyM = — 0.4074446 und 
vym = 1.2223338 setzt, erhält man zwei konzentrische Kreise! 


Überlegung: Gravitationskraft gleich Fliehkraft, d.h. bei einer Kreisbahn 


mM v2 y'M'r 
yz m, >» v=]/ 377; r} meint den Abstand von m zum Schwerpunkt. 
r r 


Ähnlich erhält man die Bahnen von Erde und Mond um den gemeinsamen Schwerpunkt, 
wenn man X = — 4,945; xm = 402,055; vum = 0,012 und v,m = = 0,977 setzt (siehe 
Anhang). 


Beispiel I 


28886km 





16688: 


Beispiel II 





Zeile 125 wurde so abgeändert, daß nur jeder 10. Wert ausgedruckt wird. 


Die Bahnkurve der kleineren Masse nennt man Trochoide. 
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Weil der Gesamtimpuls diesmal nicht Null ist, ändert sich die Lage des Schwerpunktes. 
Weil keine äußeren Kräfte vorhanden sind, bewegt sich der Schwerpunkt geradlinig mit 
konstanter Geschwindigkeit, was man mit großer Präzision bestätigt findet. Die Geschwin- 
digkeit des Schwerpunktes erhält man auch theoretisch als Quotient von Gesamtimpuls und 
Gesamtmasse, etwa zur Zeitt =0: 


5,974 : 10% kg 500 m/s + 1/3: 5,974 - 10% kg: 1500 m/s 


= 750 m/s. 
4/3-5,974 : 10% kg 


2.4 Schwingungen 
2.4.1 Gedämpfte Schwingungen 


a) Zum allgemeinen Ablauf 


Man kann das Programm vom senkrechten Wurf so abändern, daß es die Schwingung eines 
Körpers an einer Schraubenfeder simuliert. Weil die Geschwindigkeit in diesem Fall im Mit- 
tel wesentlich geringer ist, wird man für R statt der quadratischen Abhängigkeit von v die 
lineare, im Falle einer Kugel durch das Stokesche Gesetz 


R=-6r7nr'v 


gegebene, annehmen. Die entsprechende Abänderung von Zeile 1 der Wiederholung ist 
leicht vorzunehmen; in Zeile 2 ändert sich die Momentanbeschleunigung a durch die rück- 
treibende Kraft der Feder wie folgt: 


a=g+R/m + D/m: |y| 


D ist die Federkonstante in N/m; die Betragsstriche sind nötig, weil y in der Regel negativ 
belegt ist; man beachte, daß die rücktreibende Kraft der Feder im Gegensatz zu g nach 
oben gerichtet ist! 


b) BASIC-Programme 


10 REM *** GEDAEMFFTE SCHWINGUNG #*%* 
15 FRINT'#@ M,R,AETA,D,DT,VO,YO" 
20 INPUT M,R,AETA,D, T,V ,‚Y 
25 G=-9,81:H=-6*#*AETA#R: I=0: PRINT 
30 F=H#V: I=I#l 
35 B=G+F/M+D/M&ABS (Y)ı: 
IF I=1 THEN V=V+B*.5*T:60T045 
AO V=V+E#T 
45 Y=Y+V#Tıl=V+.5%B#T 
50 FRINT" T =":8=1%#T:N=10: 
GOSUB 45: PRINT"@"TAB(8-L)S 
55 PRINT"S"TAB(15)"Y =":8=Y:N=100: 
GOSUB 45: FRINT"e"TAB (22-L)S 
&0 FRINT"e"TAB (30) "V=":9=V:N=10: 
GOSUBöS: FRINT"8"TAB (36-L)S:60T0 30 : 


&5 REM #*# TABELLIERUNG DER AUSGABE *%# 
70 S=INT (N#*5+.5) /N:L=LEN (STR# (INT (ABS (5) 

II»): IF INT(SI=-1 OR INT(SI)=0 THENL=1 
75 RETURN 
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Erläuterungen: 
Das Symbol zwischen den Gänsefüßchen (Z.50--60) bewirkt einen Zeilensprung nach oben. 


Infolge des als Nullpunkt der y-Achse angesetzten oberen Totpunkts der (ungedämpften) 
Schwingung gibt unser Programm alle y-Werte negativ aus; die Mittellage der Zeitachse ist 
—- 0,49 m, siehe unten. 


Wie in den vorangegangenen Abschnitten bringen wir wieder eine Version zur graphischen 
Darstellung des Vorgangs: 


iO REM *** GEDAEMPFTE SCHWINGUNG *#*%* 

15 FRINT"@@ M,R,AETA, „DT,VO,YO" 

20 INPUT M,R,AETA,D,DT,V ,‚Y 

25 G=-9.81:H=-6*#*AETAXR: GOSUB 75: 
T=-DT:KX=24: KY=200: AK=100+M#8/D#KY  ı: 


30 F=H*V: T=T+DT 

35 B=G+F/M+D/M*ABS (Y)s IF FLAG=O THEN 
V=V+B#.5%*DT:FLAG=1:G0T0O 45 

40 V=V+B#DT 

45 Y=Y+V#DT 

s0O I=20+KX#T: IF 1>317 THEN 65 

35 J=-EY&#Y+AK: IF JsO OR J>197 THEN 30 

0 SYS FS,1,J:IF PEEK(203)<>6&0 THEN 50 

&5 IF FEEK(203)<>4 THEN 65 

70 SYS GA:FRINT CHR$(147) END 


75 GL=49205: PH=49227:F8=49260: 6E=49339: 
GA=49358:8Y8 GL:SYS GE:SYS FH,15 

80 FOR I=0 TOD 319:5Y5 FS, I,100:NEXT 

85 FOR I=0 TO 199:5YS PS,20, I:NEXT 

90 FOR I=20T0 319 STEP 24:5Y5 FS,1,101: 
SYS PS,1,99:NEXT 

95 FOR I=0 TO 199 STEF 20:8Y5 FS,21,1: 
SYS FS,19,1:NEXT 

100 Z=13:8=17:HH=53:60SUB 105: Z7=0:8=1: 
HH=49: G0OSUB 105: RETURN 

105 AD=57344+7*320+5*8: FOR I=0 TOD 7:U= 

PEEK (51200+8%*HH+I) :POKE AD+I,U:NEXT 
110 RETURN 


Erläuterungen: 

In Z.25 ist eine von der maximalen Amplitude abhängige Konstante ‘ak’ ermittelt worden, 
die in Z.55 dafür sorgt, daß die Zeitachse in gewohnter Mittellage erscheint. 

Man denke an die Hilfsprogramme zur Graphik (1.2.6) bzw. die nötigen Änderungen bei 
Verwendung von Simon’s-BASIC: 


Z.60: PLOTI,J,1... 
Z.70: CSETI 
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Der Rest vereinfacht sich zu 


75 HIRES 1,0:LINE 0,100,319,100,1: 
LINE 20, 0,20 ‚199,1 

90 FOR I=20 TO 319 STEP 24: PLOT I1,101,1: 
FLOT 1,99 ,1:NEXT 

95 FOR I=0 TO 1997 STEF 20:FLOT 21,1,1: 
FLOT 19,1,1:2NEXT 

100 TEXT 130,105,"B58",1,0,7 

105 TEXT 1,1,"B1M",1,0,7 

110 RETURN 


c) Testbeispiel (Ausdruck einer Bildschirmfeingraphik) 


Weil die Viskosität für Luft sehr gering ist, simulieren wir den folgenden Fall im Medium 
„leichtes Maschinenöl’’!) mit n = 0,1 kg/m - s, welches wir uns in einem 1 m hohen Stand- 
zylinder befindlich denken; als schwingenden Körper nehmen wir eine 3 cm dicke Eisen- 
kugel der Dichte 7,6 g/cm°, die dann die Masse 107 g hat: die Federkonstante sei 2,149 N/m. 


Wir starten den Programmablauf mit y = O und v = O und denken uns dabei die Feder ge- 
rade entspannt, das folgende Bild entstand mit At = 0,05s: 





d) Auswertung des Graphen 


Man kann eine Fülle von physikalischen Gesetzmäßigkeiten aus dieser Darstellung ablesen 
bzw. bestätigen: 

1. Die Amplitude zu Beginn, yo, beträgt 0,49 m; sie ließe sich mit unserem Computerpro- 
gramm mit n = 0 bei At = 0,01 über h = 2yo = 0,98 m gewinnen (wie man überhaupt auch 
die ungedämpfte Schwingung aufzeichnen könnte). Rechnerisch erhält man sie über die 
Energiebilanz mgh = 1/2 Dh? zu 


N) Sonst wird die Auswertung der Meßergebnisse ermüdend, weil die Dämpfung so gering ist. 
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2. Die maximale Geschwindigkeit beträgt 


. h D 
Vmax = 2,19 m/s gemäß max ” 2 y m 


oder Vmax = 2,20 m/s über den Rechner bei At = 0,01 s. 


3. Die Periode (Schwingungsdauer) T beträgt 1,4 s, praktisch aus 10 Schwingungen der 
Zeichnung (1,375 s) und theoretisch aus T=27'y 7 (1,40 s). 


4. Die Halbwertzeit (d. i. die Zeit, während der eine Amplitude auf die Hälfte ihres An- 
fangswertes sinkt: 

aus der Zeichnung zu 5,5 

theoretisch zu In I :d=5,3s, wobei d = Er der sogenannte Dampfungsfaktor ist mit 
k=67rn, hier also k = 0,028 und d = 0,132. 

5. Der Quotient von zwei aufeinanderfolgenden Amplituden ist 1,2 (theoretisch 

eTd= g14:0,132_ 19), 

6. Bei At = 0,01 ist die Momentangeschwindigkeit z. B. im Wegpunkt - 0,30 m zu - 2,02 m/s 
meßbar; die theoretisch aus der Energiebilanz herleitbare Geschwindigkeit ist ebenfalls 

2,02 m/s: 


Potentielle Energie Epor = mgh = 0,107 - 9,81 - 0,3 = 0,32 
Spannungsenergie der Feder E, = 1/2 -D h? = 1/2: 2,15 :0,3°?= 0,1 
Kinetische Energie Ekin = Epot — Es = 0,22; m/2 v? = 0,22 (J) 


= Yooz = 202 {mie 
vV- 0,107 ‚ m/s]. 


7. Abschließend sei die Parameterdarstellung — bezogen auf die Zeitachse in Mittellage — 
angegeben: 


d -0,132 -t 


y(t)=yo‘'e”""coswt oder y(t})=0,49°e cos en, 


‘ 


Man beachte, daß man die Fehler an einigen Stellen durch die Wahl von At = 0,01 statt 
0,05 noch geringer halten könnte und daß alle Gesetzmäßigkeiten letztlich nur aus der 
einen Vorgabe 


R 
ara yin 


nach der früher erklärten allgemeinen Methode der kleinen Schritte empirisch bestätigen 
(oder entdecken) konnte! Die rein mathematische Behandlung des Problems wäre hingegen 
erst mit den Mitteln der Hochschulmathematik (Differentialgleichung zweiter Ordnung) 
möglich! 


2.4.2 Überlagerung von Schwingungen 
a) Physikalischer Hintergrund 


Der zeitliche Verlauf einer Schwingung wird oft durch die Gleichung 


y=a'sinwt 
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beschrieben. In ihr bedeuten 


y:  momentaner Ausschlag (Elongation) in m 

a: maximaler Ausschlag (Amplitude) in m 

w: die Kreisfrequenz ins". Esgilt: w = 2rrf 

t: die Zeit in s | 

Zum Zeitpunkt t = O gehört offenbar die Elongation O0; wenn man diese Einschränkung 
aufheben will, muß man noch eine Phasenverschiebung einführen: 


y=a'sin(wt+tp) (1) 


Dies wird immer dann nötig, wenn mehrere Schwingungen betrachtet werden, die nicht 
gleichzeitig durch die Nullage gehen. 


Häufig kommt es vor, daß ein Körper zwei Schwingungen gleichzeitig durchführt, ohne daß 
diese sich gegenseitig beeinflussen (ungestörte Überlagerung oder Superposition). Wir be- 
handeln hier einen solchen Fall mit der Besonderheit, daß beide Schwingungen in derselben 
Ebene erfolgen. Dann erhält man die resultierende Elongation durch Addition der Einzel- 
terme: 

yı = a, sin(w4t+pjJ) 

Y2 = a, sin(wst +p>) 
Yy=Yıtya=a,'sinlwo,t+tp,) taa'sinlwat + p2) (2) 


Während die rechnerische Zusammenfassung von (2) zwecks Ermittlung eines kürzeren 
Terms recht kompliziert werden kann, ist eine graphische Darstellung der resultierenden 
Schwingung (2) mit Hilfe des Computers ziemlich einfach zu erhalten. 


b) BASIC-Programm 


10 REM *** SUFERPOSITION *%*#* 

15 INFUT"@@ Al,Wwi1,Fi"sAl,W1,Fi 

20 INPUT " A2,W2,F2"3A2,W2,F2 

25 KX=80/m:KY=20: T=0:DT=.1/W1:60SUB 100 

30 1=23+KX*T:T=T+DTıIF 1>319 THEN 90 

35 Y1=A1l*XS5SIN(WI#T+P1): Y2=A2#5IN (W2*T+F2) 
ı Y=Y1+rY2 

40 J=100-KY*Y: IF J<O OR J>199 THEN 30 

45 SYS PS,1,J:60T0 30 

50 IF PEEK(203)<>60 THEN $0 

B5 SYS GA:FRINT CHRFt147) END 


100 GL=49205: PH=49227:P9=49260:G6E=49339: 
GA=49358:5Y5 GL:SYS GE:SYS PH,16 

105 FOR I=0 TO 319:5Y5 FS, I,100:NEXT 

110 FOR I=0 TO 199:5Y5 PS,20, I:NEXT 

115 FOR I=20T0 319 STEP 40:5YS PS,1,101: 
SYS PS,1,99:NEXT 

120 FOR I=0 TO 1997 STEP 20:5Y5 PS,21,1: 
SYS FS,19,IsNEXT 

125 Z=13:5=12:HH=94:60SUB 130: Z=10:8=1: 
HH=49:GOSUB 130: RETURN 

130 AD=57344+27*320+5*B: FOR I=0 TO 7:U= 
PEEK(S1200+8*HH+1) :FOKE AD+I,U:NEXT 

135 RETURN 
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Erläuterungen: 

P1 und P2 nehmen etwaige Phasenverschiebungen (im Bogenmaß) auf. 

Die Superposition findet in Z.35 statt, der Rest des Programms dient der graphischen Aus- 
gabe. Indem DT automatisch an die Kreisfrequenz angelehnt wird, erscheinen die Punkte 
auf dem Schirm in sinnvollem Abstand. 


Man beachte, daß das 'T’ des Listings nicht die Bedeutung der Periode der Schwingung hat! 
Hier die Änderungen für Simon’s-BASIC: 


2.45: PLOTI,J,1:... 
2.55: CSET1: 


Der Rest vereinfacht sich zu 


100 HIRES 1,0:LINE 0,100,319,100,1: 
LINE 20, 0,20 ‚199,1 

105 FOR I=20T0 319 STEP 40:PLOT 1,101,1: 
PLOT 1,99,1:NEXT 

110 FOR I=0 TO 199 STEF 20:3PLOT 21,1,1: 
PLOT 19,I,1:NEXT 

115 TEXT 95,102, "Ar",1,0,7: 
TEXT 10, 77,"A1",1,0,7 

120 RETURN 


c) Testbeispiele (Ausdrucke von Bildschirmfeingraphiken) 
ai=2, w1=4, pl=0; a2=2, w2=5, p2=0 
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Es handelt sich um eine Schwebung als Folge des geringen Frequenzunterschiedes. 


Il al=1,wi1=9, pl=0; a2=3, w2=1, p2=0 





Bei einem Frequenzverhältnis von 9:1 und der größeren Amplitude A wird die 1. Schwin- 
gung der zweiten quasi aufgeprägt. 


II ai=2, w2=2, pl=1.57; a2=2.8, w2=1, p2=0 





Hier erkennt man den Einfluß der Phasenverschiebung. (Mit p2 = O erhält man eine völlig 
andere Kurve!) 


2.4.3 Lissajous-Figuren 
a) Physikalischer Hintergrund 


Anders als im vorigen Abschnitt betrachten wir jetzt den Fall, daß sich zwei Schwingungen 
überlagern, die senkrecht zueinander gerichtet sind. Zweckmäßigerweise erfassen wir diese 
Bewegung mit dem x-y-Achsenkreuz, d.h. an der bisherigen Zeitachse messen wir nun die 

Ausschläge der 1. Schwingung und an der y-Achse nur noch die Elongationen der zweiten. 
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Auf diese Weise erhält man interessante Bahnkurven. Die zugehörige mathematische Be- 
schreibung gewinnt man im Falle gleicher Frequenz durch Elimination von 't’ aus den Para- 
meterdarstellungen. 

Speziell für p = O ergibt sich dabei die Ursprungsgerade y = aı/a2 x und für p = r/2 eine 
Ellipse der Form 


2 
x2  y 
+51 
a1 42 


(Im allgemeinen ist die Ellipse gegenüber den Koordinatenachsen gedreht). 

Bei unterschiedlichen Frequenzen ergeben sich kompliziertere Formen, die man auch 
Lissajous-Figuren2) nennt. 

b) BASIC-Programm 


10 rem *%%* lissajous #%%* 


15 input'Sq Al,wl,pl'"jal,wi,pi 
20 input '" A2,w2,p2"3a2,w2,p2: 
kx=54: ky=-45:t=0:dt=.1/w1/w2 


25 91=-49205:ph=49227:ps=49260: ge=>49339 
ga=495358:5ys glısys ge:sys ph,i1ö 

SO x=sal#sin(wi*t+pil):y=al*tsin (w2rt+p2) : 
t=t+rdt 

35 1=160+kx*#x:if i<O or i>3519 then 30 

40 j=100-ky%*y:if j<O or j>19797 then 30 

45 sys ps,i,j:if peek(Z03)<>60 then 30 

so if peek (205)<X>4 then SO 

33 sys ga:sprint chr#(147) :end 


Erläuterungen: 

Die Bildfaktoren kx und ky sind wieder so aufeinander abgestimmt, daß ein Kreis auch als 
Kreis in Erscheinung tritt. 

Mit der Leertaste kann man die Erstellung der Graphik jederzeit abbrechen; endgültig ver- 
schwindet sie erst nach Betätigung der f1-Taste. 

(Simon’s-BASIC: Z.25 HIRES 1, 0; sonst wie in 2.4.2) 


c) Testergebnis (Ausdrucke von Bildschirmfeingraphiken) 


al=2, wi1=1, pl=-0; a22=2, w2=2, p2=3.14 
Il al=2, wi=2, pl=0; 2=2, w2=3, p2=1.57 
ii a1=2, wi1=11, pl=0; a2=2, w2=13, p2=1.57 


2) Jules Antoine Lissajous, 1822-1880 
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2.5 Elektrische Felder* 
a) Physikalischer Hintergrund 


Feldlinienbilder eines elektrischen Feldes geben auf anschauliche Weise Stärke und Rich- 
tung der Kraft in einem gegebenen Feldpunkt an. 


Eine freie Punktladung bewegt sich unter dem Einfluß dieser Kraft entlang der Feldlinien, 
deshalb kann man die Feldlinienbilder auch erzeugen, indem man die Bewegung einer Pro- 
beladung verfolgt. 


Das elektrische Feld einer einzelnen Ladung O ist gegeben durch 
Aneg'r® 


wobei E den Betrag der elektrischen Feldstärke, r den Abstand von einer Ladung und eo 
die elektrische Feldkonstante bezeichnen. E wirkt stets radial, d.h. 


Es E "Fo 


(ro: Einheitsvektor in radialer Richtung). 


* Ein Beitrag von Stefan Lemke aus Erkrath 
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O wirkt nun mit der Kraft 


auf die Punktladung q (Coulomb-Gesetz). 


Hat man es mit mehreren Ladungen O1, ...., On zu tun, so überlagern sich die Kräfte 
(Superpositionsprinzip), und die gesamte Kraft F lautet: 


F-VR-a-VBisaE 
i=1 i=1 


Da die Felder beliebig geformter, geladener Körper recht kompliziert werden können, 
beschränken wir uns auf Kugeln, deren Ladung homogen auf der Oberfläche verteilt ist. 


b) Allgemeiner Ablaufplan 


Das Programm simuliert Testladungen, die, von den Oberflächen der Kugeln abgestoßen, 
durch ihre Bewegung das Feld abtasten. Die Bahn (die Feldlinie) findet sich, indem im 
Feldpunkt die Kraft über das Coulomb-Gesetz berechnet wird und man dann mit der 
Schrittweite zum jeweils nächsten Feldpunkt gelangt. 


Da die Bewegung nicht kontinuierlich ist, sondern schrittweise erfolgt, können in Be- 
reichen geringer Feldstärke (großer Schrittweite) mit stark gekrümmten Feldlinien Ab- 
weichungen von der wahren Bahn auftreten. Dies fällt besonders dann auf, wenn dieselbe 
Bahn in zwei verschiedenen Richtungen durchlaufen wird. 


Zur Abhilfe wird jeder Schritt zweistufig berechnet: Auf den ‚„Vorwärtsschritt‘ folgt ein 
„Rückwärtsschritt‘ (quasi durch kurzzeitiges Umpolen der Ladung), der aber nicht immer 
in den Ausgangspunkt zurückführt. Den korrigierten Sprung erhält man dann durch Mittel- 
wertbildung (in der Skizze angedeutet): 






(A1,B1) (0,0): Alter Feldpunkt 
SITUU0o (x, y): Neuer Feldpunkt 
x = (Al + A2)/2, 
y=(B1 + B2)/2. 


(A2,B2) 
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Das folgende Flußdiagramm zeigt den Ablauf des Programms: 


CEEB 


M® = 19 Zeichne 
L® = 500 alle 
Kugeln 


Eingabe 
© 
BNETEN 


NI = ABS (Q (1)/O®) «NO 
H1 =SGN (O(N)) «H® 











Eingabe 
x(l), 
y(i) 


: 


x=R(l)»cos(2*Pl*J/NI) 
+x(l) 

y=R(l)»sin(2*PI*J/NI) 
+y(l) 


Eingabe 
R(I), 
a) 


Nein 





O0 =Min 
(ABS (O1)), 
ABS (Q(M))) 
Eingabe 
NO xi=x 
yi=y 
Eingabe 
HO Unterprogramm 
| KRAFT 


ie 


2.5 Elektrische Felder 


. 


A1=FXx*H2 
B1=FYx«H2 


xi=x+Al 
yi=y+Bil 


Unterprogramm 
KRAFT 


A2=FXxH2 
B2=FYx«H2 





Ja > Nein 


Nein Ja 


x=(A1 + A2)/2 
+x 
y = (Bl + B2)/2 


ry 











im Bildschirm- 
format 
? 


Nein 


Ja 


Setze Punkt 
bei x, y 
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Unterprogramm: 


KRAFT 





DX=xX1-XIK) 
DY=Y1-Y(K) 
RK = SOR (DX "2+DY °2) 






FX=FX+OQ(K) x DX/(RK "3) 
FY=FY+O(K)»DY/(RK 3) 


> 


Nein 


F=SOR(FX "2+FY 2) 
H2 = H1/{F*xSOR(F)) 
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c) BASIC-Programm 


a1 9) 

33 

&0 

659 

70 

80 

O0 

92 

94 

95 

100 
105 
110 
115 
120 
120 
140 
150 
1&0 
170 
172 
174 
176 
180 
190 
200 
210 
220 
230 
240 
250 
Z&60 
70 
280 
290 
300 
S10 
>20 
2.30 
340 
350 
339 
S&a0 
3569 
370 
375 
377 
80 
285 
390 
395 
AUO 
210 
420 
425 


REM *** FELDLINIENBILDER *** 


REM *** INITIALISIERUNG *%** 
MO=10: LO=S00:F2=8*ATN (1) 

DIM X (MO) ,„Y{MO) „@(MO) „R (MO) 
ER&=CHR$ (13) : CS$=CHR$ (147) 
GL=49205: GE=49339: GA=49358 
FH=49227: PS=49260 


REM *%*%* VORGÄABEN RR 

FRINT CS#:FOEKE 523280,1:FOEE 53281,1 

FRINT CR#;, "EB"; "#*##** FELDLINIENBILDER VERTEILTER KUGELN"SCRE 
FRINT "* WIEVIELE LÄDUNGEN ( MAX.";MO;") SOLLEN" 


INFUT " GEZEICHNET WERDEN ";M 

IF (M&i=0 OR M>MO) THEN 120 

FRINT "* BITTE GEBEN SIE IM FOLGENDEN DIE KO-" 
FRINT " ORDINATEN X(1),Y(I), DEN RADIUS R(I)" 
FRINT " DER KUGEL (IN FIXELS),' SOWIE IHRE" 
FRINT " LADUNG @(I) AN. (ES KOMMT NUR AUF DAS" 
FRINT " LADUNGSVERHAELTNIS AN, SCHRITTWEITE" 
PRINT " AN DIE GROESSENORDNUNG ANFASSEN 1)" 
DO=1E+TB 

FOR I=1 TOM 

FRINT " X ("515") "3zINFUT X(D) 

IF ABS(X(1))>159 THEN 200 

FRINT " Y ("3515") "3s:INPUT Y(D) 

IF ABS(Y(1)) >99 THEN 220 

FRINT " R ("315") "2:INFUT RI) 

IF R(DI<=0 THEN 240 

PRINT" @ ("315") "s:INFUT O(D) 

IF O(I)=0 THEN 260 

FRINT 

IF ABS(B(TDI)<QO THEN Rö=ABS(A(I)) 

NEXT I 

FRINT "* WIEVIELE FELDLINIEN SOLLEN VON DER BE-"; 
INFUT " TRAGL. KLEINSTEN LADUNG AUSGEHEN "3NO 
IF NO<=0 THEN 310 


INFUT "&* SCHRITTWEITE"3HO 
IF Höx=0 THEN 340 


REM *** START DER BERECHNUNG *** 
FRINT CSF:FOKE 3280,14 

SYS GL:SYS GE:SYS FH,223 

GOSUR 730 

REM #* NAECHSTE KUGEL * 

FOR I=1 TOM 

NI=ABS (QO CI) /RO) #NO 

H1=S5GN (ÜCII) #HO 

DW=F2/NI/Z 


REM * NAECHSTE LINIE * 
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450 
4.359 
440 
450 
4593 
A480 
470 
480 
4970 
EÖOO 
310 
a WEL 
J.20 
540 
IS0 
Son) 
363 
370 
375 
‚s80 
370 
(= 10 je) 
s10 
u 
625 
627 
6:0 
Sal 
&A40 
(= pa] 
m] 10) 
670 
680 
970 
700 
710 
720 
725 

0 
729 
740 
745 
750 
760 
770 
780 
7FO 
Bon 
Blo 
820 
8.0 
840 
850 
855 


BAU 


FOR J=1 TO NI 

KA=X CI) EX=(R(DI +1) COS (F2*J/NI-DW+X (I) 
YA=Y(ID):Y=(R(I)+1)*SIN(F2*J/NI-DW)+Y(I) 
G0TO 530 

REM * NAECHSTER FUNKT * 

E=0:X1=X: Y1=Y:GOSUB 630 

AlI=FX*H2: Bi=FYx*H2 
X1=X+Al:Y1=Y+B1:G0SUB 630 

A2=FX*H2: B2=FYxH2 

IF E THEN 570 : REM * ENDE LINIE * 
X=X+(Al+A2) /2: Y=Y+(B1+B2)/2 

REM * SETZE FUNKT #* 

IF (ABS(XA)i{=159 AND ABS(YA){=99) THEN SYS FS, (XA+159) , (99-YA) 
XA=X: YA=Y 

GOTO 460 


NEXT J 


NEXT I 

GET Afsı IF Af="" THEN 605 

SYS GL:SYS GA:FRINT CS#:FÜKETIZBO,1 
END 


REM *** UF BERECHNE DIE KRAFT #** 
FX=0:FY=0 

FOR kK=1 TOM 

DX=X1-XtK) :DY=-Y1-YtH) 

RE=SOR (DX#*DX+DY*DY) : RZ=REFRE*RE 
FX=FX+Q (HE) #*#DX/R3: FY=FY+O CH) #DY/RS 
IF (RK£R(CE) OR RE>LO) THEN E=-1 
NEXT E 

F=SOR (FX#FX+FY*FY) H2=H1/ (F*5SOR (F)) 
RETURN 

REM *#** UF ZEICHNE DIE HKUGELN ###* 
FOR I=1 TOM 

R2=R(I)#R(I) 

FOR YR=0 TO RI) /SORCE) 

XR=SUR (R2-YR&#YR) 

SYS FS,„ (159+X CD -XR) „ (II-YCEDI+YR) 
SYS FS, (159+X (ID) +XR) „ (99-YEODI+YR) 
SYS FS,„(159+X CI) -XR) , (99-Y(ILDD-YR) 
SYS FS,„ (159+X CI) +XR) ,„ (F7-YCD-YR) 
SYS FS,„(159+X CI) -YR), (99-YCDI+XR) 
SYS FS,„t159+X(DI)+YR) „ (99-YCDI+XPR) 
SYS FS,„ (159+X CI) -YR), (979-Y(IDD-XR) 
SYS FS, (159+X (I) +YR) „ (99-Y(I)-XR) 
NEXT YR 

NEXT I 

RETURN 
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Erläuterung: 

Es werden die in Abschnitt 1.2.6 beschriebenen Graphik-Routinen verwendet. Die Koor- 
dinaten durchlaufen den Bereich von - 159,..., + 159 in x-Richtung und - 99,...,+ 99 in 
y-Richtung. 

M® ist eine Konstante und schränkt die Zahl der felderzeugenden Kugeln ein. L® verhin- 
dert, daß bestimmte Feldlinien bis ins Unendliche verfolgt werden: Überschreitet eine Test- 
ladung den Abstand L® oder dringt sie in eine Kugel ein (Zeile 699: Abbruchbedingung), so 
wird die nächste Testladung gestartet. 

Die Zahl der von einer Kugel ausgehenden Feldlinien variiert mit der Ladung (NI, Zeile 
395), außerdem bedeutet hohe Punktdichte große Feldstärke, da die aktuelle Schrittweite 
H2 von der Kraft beeinflußt wird (Mit H2 = H1/F erhielte man äquidistante Sprünge). 


Bis Zeile 350 findet die Vorbelegung statt, sie ist im wesentlichen selbsterklärend. In Zeile 
390 wird eine Kugel ausgewählt, in Zeile 430 eine von ihr ausgehende Feldlinie, die Zeilen 
640-710 berechnen die am jeweiligen Ort wirkenden Kräfte und damit den nächsten Feld- 
linienpunkt. 

Falls höhere Rechengeschwinddigkeit erwünscht ist, können die Zeilen 490 und 508, in 
denen die oben beschriebene Korrektur stattfindet, weggelassen werden. 

In Zeile 520 muß dann stehen: X=X+A1:Y=Y+B1. 

Die Rechenroutine ist wegen der Schleifen zwar erst ab mehreren Kugeln effizient, zeigt 
aber deutlich die Symmetrie der Überlagerung. 

Zur Erhöhung der Rechengeschwindigkeit wurden Potenzen als Produkte geschrieben. 
Änderungen bei Benutzung von Simon’s-BASIC: 

Z.92 und Z.94 fallen weg. 2.375, Z.540 und Z.610 ändern sich wie folgt: 


>75 HIRES 14,1 
nal vo... THEN FLOT XA+r159,079-YA,1 
&10D ÜSET 1 


d) Testbeispiele 


Wie man aus den folgenden Bildschirmausdrucken ersieht, werden zwar keine quantitativen 
Aussagen zu Probeladung und Feldstärke gemacht, jedoch geben Richtung und (Punkt-)- 
Dichte der Feldlinien den zugrundeliegenden Sachverhalt korrekt wieder. 


Eingabewerte 


1. Fall: x; = -50 X) = 50 12 Feldlinien 
yı 0 y2=0 Schrittweite 0,3 
r, = 5 la 5 
gqı = 2 gQ2=2 


2. Fall: wie 1. bis auf q; =-2 

3. Fall: x}; =-120 x2=-20 x,=30 xa = 100 
yı = 60 Y2=40 y3=30 ya= 80 
rı = 20 ro = 10 r, =5 ra = 10 
g1,=2 gQ2=-4 gq3=8 Qu=4 
12 Feldlinien, Schrittweite 0,25 
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Anmerkungen: Bei den einzugebenden Zahlen für die Ladungen kommt es nur auf deren 


Verhältnis und nicht auf ihre absoluten Werte an! 
Wenn mehr als zwei Ladungen im Spiel sind, kann die 


dig werden. 
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Erstellung des Graphen zeitaufwen- 
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3 Automatische Auswertung von Meßreihen 


3.1 Linearitätsprüfung einer Meßreihe 


a) Problemstellung 


Nehmen wir als Demonstrationsbeispiel eine nicht sonderlich genaue Meßreihe zum Hooke- 
schen Gesetz (die ‚‚exakte’’ Federkonstante sei D = 34,6 N/m). 





44,2 


Die Ausdehnung s der Feder ist in cm und das ancehängte Gewicht F in N notiert worden. 
Der Quotient F/s, der die Federkonstante D darstellt, schwankt stark. Man könnte nun auf 
die Idee kommen, den Mittelwert der sieben Quotienten zu bilden; dieser wäre jedoch mit 
29,1 N/m eine schlechte Annäherung an D. Wesentlich besser fährt man dabei, wenn man 
mit Hilfe des arithmetischen Mittels die Summe gewisser Fehlerquadrate minimal werden 
läßt. Wie das gemacht wird, kann man in den einschlägigen Lehrbüchern der angewandten 
Statistik nachlesen; eine Herleitung ohne Differentialrechnung findet der Leser in [1]. Das 
Resultat dieser Überlegungen läßt sich leider nur in umständlichen Formeln darstellen: 


ll. 


II. 
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Die erste Formel stellt den sogenannten Korrelationskoeffizienten dar. Er kann Werte zwi- 
schen + 1 und - 1 annehmen und stellt ein Maß für den Zusammenhang zwischen den n 
Wertepaaren x;, y; dar: Nur wenn der Betrag von r nahezu 1 ist, liegt eine lineare Beziehung 
vor: 

y=-a'xtb 

Die Steigung a und die Abschnittskonstante b dieser Ausgleichsgeraden läßt sich mit Hilfe 
der Beziehungen II und Ill bestimmen. Wenn man also untersuchen will, ob einer Meßreihe 
eine linear-funktionale Beziehung zugrunde liegt, wird man erst den Korrelationskoeffizien- 
ten r bestimmen und - falls |r | = 1 — anschließend die Konstanten a und b jener Gera- 
den bestimmen, die sich den Meßpunkten am besten anpaßt. 

Es braucht wohl nicht betont zu werden, daß der Rechenaufwand hierbei nicht mehr mit 
dem einfachen TR bewältigt werden kann! 

Bei der Programmierung sollte man darauf achten, schon im allgemeinen Ablaufplan etwas 
zu optimieren, was dadurch möglich wird, daß mehrmals die gleichen Summen auftreten. 
Führt man zum Beispiel für die erste Formel die abkürzenden Bezeichnungen 


Z 
r = 
VNı Vi 


ein, so kann man die zweite Formel nach dem Muster 


„2. 
N, 
aufbauen. 


Im einzelnen muß man fünf verschiedene Summen bilden, nämlich über x,;; y;, x”, y’ und 
x;y; (jeweils von i=1bisi=n). 

Unter Vorwegnahme der späteren Testläufe sei hier schon verraten, daß die Federkonstante 
D der eingangs genannten Meßreihe in Gestalt des „a’' der zweiten Formel den Wert 34,3 
N/m annimmt. 


b) BASIC-Übersetzung 


Wir verschieben die Übersetzung noch etwas, um auch Meßreihen verarbeiten zu können, 
die nicht durch lineare Funktionen repräsentiert werden. 


3.2 Kurvenanpassungen mit Potenz-, Exponential- und 
Logarithmusfunktionen 


a) Problemstellung 





54 3 Automatische Auswertung von Meßreihen 


Betrachten wir die Meßergebnisse eines Fahrbahnversuchs, wo bei konstanter Beschleuni- 
gung der Weg s in cm in Abhängigkeit von der Zeit t in s festgehalten wurde, so möchte 
man natürlich die Beziehung 


s=k t 


verifizieren. Um diese Gesetzmäßigkeit auf eine lineare zurückführen und damit auf die im 
vorigen Abschnitt beschriebene Weise überprüfen zu können, logarithmiert man beide Sei- 
ten der Gleichung zur Basis e und erhält 


Ins=2-Int+tInk 

In der Tat: Substituiert man noch y = Ins, x = Int und b = Ink, so hat man mit 
y=-2'xtb 

einen Spezialfall der allgemeinen linearen Funktion vor sich. 

Beliebige Potenzfunktionen der Gestalt 

y=k'x",meQa,x>0 

kann man somit überführen in 

Iiny=m'Inx+tInk bzw. y’=ax'’+tb 


Man wird daher die Berechnungen von r, a, b in Form eines Unterprogramms realisieren 
und eine Weiche einbauen, damit gegebenenfalls anstelle der x;, y; die Inx; und Iny,; 
summiert werden. Das m entspricht dann dem a und dask erhält man durch e®. 


Analog gelangt man zu den Linearisierungen von Exponential- und Logarithmusfunktionen; 
für die anstehende Programmierung fassen wir zusammen: 










Lineare Funktion 


Potenzfunktion 


y=k:x" Iny=m-Inx+tInk 


Exponentialfunktion 
y=k'e"* 
=k:c” 


Iny=m'x+tink 


Logarithmusfunktion 


y=-k'Inx+tb y=-k'Inx+tb 
=k, log. x+b 
(k, =k Inc) 


Man vergleiche auch die graphische Auswertung auf logarithmisch unterteilten Millimeter- 
Papieren! 


Aufgrund der bisher angestellten Überlegungen gelangt man zu folgendem Ablaufplan: 
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b) Allgemeiner Ablaufplan 


1. Eingabe der Paare x,,y;;i=1,2,..., n 
2. Im Falle einer vermuteten 


Potenz- x; + Inx;y; = Iny, 
Exponential- } funktion setze y_ + Iny Ji=1,2,...,n 
Logarithmus- x; + Inx, 


3. Bildung der Summen S,, Sy, Sx2, 9y2, Ixy 
4. Z +— n'S,, 75x "Sy 
N, +—n:S.-52 


r + m 2 ; Ausgabe von r 
Z 
b. a +— ——-; Ausgabe von a 
N} 
S,-a'S 
6.b+-— — - 


7. Wenn Potenz- oder Exponentialfunktion vermutet, dann b «— eP 


8. Ausgabe von r,a,b 


Ergänzung zu 3.: 


Art der Summe 





Anmerkungen: 


Statt selbst eine Vermutung zu äußern, könnte man auch den Rechner nacheinander die 
vier Hypothesen durchtesten und dann die zum betragsgrößten ‚r’ gehörige Funktion aus- 
geben lassen. 


In der folgenden BASIC-Versson ist dies mit einigen anderen Ergänzungen wie z.B. der 
Möglichkeit zu Inter- und Extrapolation berücksichtigt. Da außerdem eine graphische Dar- 
stellung der Funktion mit automatischer Anpassung des Bildausschnitts hinzukommt, ist 
das Programm relativ umfangreich geraten. 


c) Erweiterte BASIC-Version 


18 rem #%%% messreihenauswertung ER 


15 dim x(99) ,y(99) ,h(4,99) 

286 deffn rd(zw)=int (abs (zw) +.5) son (zw) 
58 goto 2888:rem >> menue 

51 : 

1908 rem 3%% unterprogr amme *%x% 
181 

128 rem *3%%* auf zd dezimalen runden #%% 
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125 fk=int(1812d+.1) :zw=szwätk : if zw-int(zw)>=.5 then zweint (zw) +1 
138 zw=int (zw /fk :return 

131 

178 rem 34% achsenkreuz zeichnen Kr 

175 for ii=8 to 319 

188 sys ps,ii,xa 

185 next 

198 for ii=B to 199 

195 sys ps,ya,ii 

208 next 

201 : 

285 rem 34% achsenkreuz skalieren 4% 

210 rem 34% skala x-achse Hk 

215 aa=sya-int(ya/px> px :xI=5Hpx 

228 for ii=aa to 319 step ex 

225 sys ps,ii,xa-1:sys ps,ii,xati 

238 next ii 

235 xe=319:g90sub 248:x5=-x5 :xe=8 :gosub 248 :90t0o 265 
248 rem #H% up fuenfermarken x % 

245 for ii=ya to xe step x5 

258 sys ps,ii,xa-2:sys ps,ii,xa-3:sys ps,ii,xat2:sys ps,ii,xat3 
255 next ii 

268 return 

265 rem #4% skala y-achse sr 

278 aa=xa-int(xa/py) Kpy:y5=5kpy 

275 for ii=aa to 199 step py 

288 sys ps,ya-1,ii:sys ps,yati,ii 

285 next ii 

298 xe=199:g90sub 295 :xe=08:y5=-y5:gosub 295 :90to 328 
295 rem #%% up fuenfermarken y ar% 

3086 for ii=xa to xe step y5 

385 sys ps ,ya-2,iiji:sys ps,ya-3,ii:sys ps ,yat2,ii:sys ps ,yat3,ii 
318 next ii 

315 return 

328 rem #4%* kleine marken K%% 

325 kx=px7/5:if kx<iB8 then 345 

327 aa=sya-int(yaz/kx> kkx 

338 for ii=aa to 319 step kx 

335 sys ps,ii,xa-i 

349 next ii 

345 ky=py/5:if kyc6 then 395 

347 aasxa-int(xazrky) ky 

358 for iisaa to 199 step ky 

355 sys ps,yati,ii 

368 next ii 


398 : 
395 rem 4%% achsen bewerten r% 
4688 rem 4% werte kx-achse x% 


485 if px>38 then 428. 

418 z=int(xa/8) +t1:s=int( (ya+r5ipx)/8)-1:tt$3=str$(5kmx) :gosub 465 

415 s=intt (ya-5Hpx)/8)-1:tt$=str$(-5kmx) :gosub465 :g90oto 438 

428 z=int(xa/8) +1:s=int(l(tyatrpx)7/8)-1:tt$=strslme) :gosub 455 

425 s=int((ya-px)/8B)-1:tt$=str$(-mx) :gosub 465 

438 rem #%% werte y-achse DEE 

435 if py>18 then 458 

448 s=int(ya/8) +1:z=int( (xa-5Fhpy)/B) :tt$s=strs(5inmy) 'gosub 461 :gosub 465 
445 z=zint((xat5Hpy)/B8) :tt$=str $C-5hmy) :gosub 465 :90to 468 

4598 s=int(ya/8) +1:z=int((xa-py)/8) :ttsestr$(my) 'gosub 461:90osub 465 
455 z=int((xatpy)/8) :tt$=str$(-my) :gosub 465 

468 return 

451 ll=len(tt$s):if s+11339 then s=s-1l1l-2:return 

462 : 

465 rem #%% text in graphik r% 

478 lI1l=lenttt$) :ad=57344+24320+s%8 

475 if s(8 or s+l1)39 or z<(8 or z}24 then return 

488 for kk=1 to 11 

485 hh=asc(mid$sttt$,kk,1)) 
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498 
495 
588 
585 
510 
511 
515 
>28 
525 
538 
335 
548 
541 
545 
555 
568 
565 
578 
575 
588 
>81 
585 
598 
>92 
595 
397 
688 
681 
682 
683 


658 
655 


675 
680 


785 
718 
888 
895 
818 
815 
830 


if hnh(64 then 515 

if hn(96 then hh=hnh-64 :90t0515 
if hh<c128 then hh=hhn-32:g0to 515 
if hhc192 then hh=hh-64 :goto 515 
if nhnc255 then hh=hhn-128 

if hn=255 then hh=94 

for ii=B to 7? 

uu=peek (51288+8%4hh+ii) :pokeadtii ,uu 
next ii 

ad=ad+8 

next kk 

return 


rem 34% punktwolke zeichnen “r% 

gosub 624 

for k=1 ton 

i=zya+tfnrd(x (ck) %388/dx) : jexa-fnrdtyck?)%i808/dy) 
sys ps,i,)j 

next k 


gosub 675:5y3 ga:return 
rem 3% kurve zeichnen nur 
g9osub 624 


d1=388/ dx :xs=1/d1:x=x1-x5 :d2=180/dy: il=yatfnrd (x !Kd1) : i2=yatfnrd(xr%di) 
for k=il to i2 

K=xXtxSs 

on ft goto 681,692,694,6085 
yszalkx+tb:goto 6089 

if xc8 and aC>int(a) then 615 
yzbikxta:goto 689 

y=bitexp (astx) :goto 689 

if xc=8 then 615 

yzaklog(x)+tb 
isya+tfnrd(x#di1) : j=exa-fnrd(yAd2) 
sys ps,i,)j 

next k 


gosub 675:sys 9a:gyse2:return 
rem 34% bildvorbereitung ar 

if gu=8 then gosub 1888:return 

if gucd2 then 628 

erint cu$tab(8)"Altes Bild loeschen?'" :g0sub675 

if 9$<C)>'"n" then sys gyl:sys ge:sys ph,15:90sub 178:return 

sys ge:sys ph,15S:return 

rem 4% sys-einsprungadressen K%% 

91=492085 :ph=49227 :ps=49268 :9e=49339 :9a=49358 

return 

rem %4% bildschirmdefinitionen Kh% 

poke 53288,15:poke 53281 ,15:bl$=chr $ (147) :cu$=chr $(17) :coo$=chr $ (145) 
nf $=chr $ (144) :wf $=chr $(5) :kd$=chr $(14) :cz$=chr $(15% 

return 

rem 6% warteschleife rn 

poke 198,08 

get g$:if g$="'" then 685 

poke 198,8:return 

rem %%% re-initialisierung “r% 

poke 53272,18:poke 56576,196:proke 648,196 

return 

rem 34% messwerte eingeben u 2 u _ 
print bl$cu$wf$tab(”)"Eingabe der Messwerte"nf$cu$scu$: i=8B:k=8:gvrd 


isit1:g90osub 868:if x$CD’"%" then 818 

n=i-1 . [31 [71 
print cu$wf$stab(7)"Alle Eingaben richtig?" :gosub 675:if g$C’"n" then 
return 
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835 print nf$cu$" Nr. des zu korrigierenden Wertepaars?"cu$:gosub 675:i=val(g$i 
848 gyosub 868 :90to 838 


868 i$=right$s(str$Ci),len(str$(i))-1) 


865 print" x"i$tab(4)"= ";:input x$:if x$="%" then print co$" ":g0ot0885 
878 rrint co$tab(6)x$" " 

875 print co$tab(28)"y"i$:print co$tab(23)"= ";:input y$:print co$tab(2y)y$s" 
888 x(Ci>=zuval(x$) :yli)zsval(y$) 

885 return 

886 : 

999 rem K4% anpassung vorgeben u 


985 rrint cu$wf$stab(S)"Kennziffer des vermuteten" 

918 print tab(5)"Funktionstyps eingeben!"nffFousou$ 

915 print" 1) Lineare Funktion “ 

928 print!" 2) Potenzfunktion " 

925 print" 3) Exponentialfunktion" 

938 print" 4) Logarithmusfunktion" 

935 print cu$" 5) Zum Hauptspiegel zurueck" 

948 gosub 675:if gsC"1" or gyE)"5"then985 

945 printbl$:on val(g$) goto 18860,110908,1209,13098,2905 

958 : 

1808 ren %4% lineare funktion r% 

1895 ft=1:s5x=8:54y=8 :x2=28 :y2=8:xy=B8 

1818 for i=1 ton 

1815 srasıktx(i) :syasytyli) :x2sx2trx id) EX CI) :y2zy2tryli)iygli) iXyaxytx (i)iyli) 
19828 next i 

1825 gosub 1358:rem >>> r,a,b berechnen 

1838 return 

1031 : 

1188 rem #ıkh potenzfunktion we. 

1185 ft=2:sx=8:sy=B:x2=8:y2=8:xy=8 

1118 for i=1 ton 

1111 n(2,i)=8:if x(i)<C=B or y(i)<c=aB then h(2,i)=1:9g0t0o 11208 
1115 sx=sx+tlog(xti)) :sy=sy+tlog(lyli)) :x2=ax2+tlog(x(i))Hlog(x(li)): 
1118 y2=y2+log(yCi))Hlog(lyCli)) :xyaxytlog(x(i))Hlog(yli)) 
1128 next i 

1125 gosub 1358:rem >>> r,a,b berechnen 

1138 return 

1131 : 


1288 rem #%% exponentialfunktion 34% 

1285 ft=3:sx=8:5y=8:x2=8B:y2=8:xy=B 

1218 for i=1 ton 

1211 n(3,i)=8:if y(i)(C=B then h(3, ij )eil:g0to 1228 
1215 sx=asxtx(i) :sy=sy+tlog(y(li)) :x2=sx2tx(i)AxCi) 
1218 y2=y2+tlog(ylti))#Hlog(yli)) :xyexytx(i)dlog(lyli)) 
1228 next i 

1225 gosub 1358:rem >>> r,a,b bereohnen 

1238 return 

1231 : 

1388 rem %%% logarithmusfunktion »»%% 

1385 ft=4:5x=B:54=8:x2=0:y2=8:xy=8 

1318 for i=1 ton 

1311 h(4,i)=8:if x(i)(=B then h(4,i)=1:g0to 1328 
1315 sx=sxtlog(x(i)) :syasytyli) :n2=x2tlog(x(i))tlogygix(i)) 
1318 y2=y2+ty(i)Kyli) :xy=axyt+logyg(x(Cid)Hyli) 

1328 next i 

1325 gosub 1358:rem >> r,a,b berechnen 

1338 return 

1331 : 

13598 rem 34% r,a,b berechnen ir 

1355 z=eniixy-sxisy :ni=näkx2-sxisx 

1368 r=z/sar (ni) /sar (niy2-syisy) 

1365 a=z/ni1:b=(sy-alsx)/n 

1378 if ft=2 or ft=3 then b=exp(b) 

1375 return 

1376 : 

1488 rem 34% korrelationsvergleich 4% 

1482 print cu$tab(8)"Bitte Geduld, ich rechne!" 
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1485 rm=8:90sub1088 :g90osub 14208:9osub 1188:90osub 1429:90sub 12898 :g90osub 1428 
1418 gyosub 1388 :g90sub 1428:r=rm:ft=fm:asam:b=bm:return 

1428 if abstir)>abs(rm) then rmer :fm=ft:am=a :bm=b 

1425 return 

1426 : 

186988 rem 34% rechnerisches ergebnis KHı% 

1591 print bl$cu$wf$tab(7)"Wollen Sie festlegen, wieviel" 

1582 print tab(7)"Dezimalen angezeigt werden?"nf$:gosub 675:if gy$C’"j"then 1511 
1563 print cu$cu$snf$" Zahl der Nachkormmastellen" 

1584 print cu$" Korrelation r:";:gosub 675:nr=val(g$) :if nrd8 then 1584 
4585 rrint nr:printcu$fnf$" andere Werte :"; :gosub675:nk=ual(y$) : ifnk>8then15B5 
1506 print nk:for i=1 to 1888 :next 

1518 zw=r :zd=nr :gosub 129:r=zw:zwaa:zdenk :gosub 128 :3=zw:zw=eb:gosub 128 :b=zw 
1511 print bl$cu$:print" Korrelationskoeffizient r =";r;cu$ 

1512 print" Es handelt sich um die Funktion:"ou$ 

1515 on ft goto 1525,1550,1575,1688 

1516 : 

1525 if b>8 then print" fix) ="a'% x +"b;cu$:goto 1650 

1538 print" f(x) ="a'%4 x -"abs(b) ;cu$:goto 16506 

1558 print" f(x) ="b" # x hoch"a:goto 1658 

1575 print" f(x) ="b"%k e hoch"a'"x":goto 1658 

1688 if b>8 then print" f(x) ="a" % Inx +"b:g0oto1658 

1685 print" f(x) ="a" % Inx -"abscb) 

1658 hf$="":for i=i ton 

1655 if n(ft,i)=1 then hf$=hf$+tstrsli)+"," 

1668 next i 

1662 if hf$="" then 1695 

1665 i=B:hf$=left$schf$, 1lenchf$)-1) 

1678 i=siti1:x=x(i) 

1671 on ft gyoto 1695,1672,1677,1685 

1672 if x<B8 and ac)dint(a) then 1685 

1675 yabixta:df=y+tyCi):if dFfC>8 then if abs(y-y(i))/df)>S5e-2 then 1685 

1676 gyoto 1682 

1677 y=biexp (aklx) :df=ytyli):if dfC>B8then if abs(y-y(i))/df)5e-2 then 1685 
1682 if i<cn then 1678 

1684 goto 1695 

1685 print cu$cu$wf$" Achtung: Messwert(e) Nr.";hf$ 

1688 print" konnte(n) nicht logarithmiert werde (n) !"; 

1698 print" Es gibt dabei ausserdem Abweichungen von mehr als 5% .„" 


1693 print" Entscheiden Sie selbst, ob man diese(n) Wert(e?) einbeziehen kann!" 
1695 gosub 675:return 

1696 : 

1788 rem 34% inter/extrapolationen F%% 

1792 input" x=";x$:x=ual(x$):if x$="%" then return 
17085 on ft yoto 1718,1728,17308,1748 

1718 y>allx+tb:goto 17508 

1728 if x<8 and ac>int(a) then 1751 

1721 y=-bixta:goto 1759 

1738 y=biexp(alkx) :goto 17508 

1748 if x<=B then 1751 

1741 ys=satlog(x)+tb 

1758 print oo$tab (28) "Fo )e=e";y:goto 1782 

1751 print co$tab(28)'"f(x) existiert nicht" :goto 17982 
1799 : 

18988 rem 4% graphik vorbereiten AK%% 

18908 gosub 1858 

1818 mm=388/dx:i=8 

1815 if mmD388 then i=i-1:mm=mm/i8:goto 1815 

1828 if mm<iB8 then i=i+i1:mm=mm#1B:goto 1828 

1825 px=int(tmm) :mx=14B8}ti 

1839 mm=189/dy:i=8 

1835 if mm$188 then i=i-1:mm=mm/18:90to 1835 

1848 if mm(18 then i=i+ti:mm=mmi4i19:goto 1848 

1845 py=inttmm) :myerißti:fl=i 

1847 sys gl:sys ge:sys ph,15:90sub 179:gu=1:return 
1858 m=1e38:x lem: xr=-m:yu=m:yo=-m 

1855 for i=1 ton 
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1856 if x(i)>xr then xr=x(i) 

1857 if x(i)<cx«l then x1l2x«Xi) 

1858 if y(i)>yo then yo=y(i) 

1859 if y(C(i)<yu then yu=y(i) 

1868 next i 

1865 dx=xr-x1:dy=yo-yu 

1878 if x1>=8 then ya=9:dx=xr:goto 1885 
1875 if xrc=8 then ya=398 :dx=-x1:90t01885 
1888 ya=int(-x17dx%309) +18 

1885 if yu>=adthen xa=189:dy=yo:g0oto1899 
1898 if yo<=8 then xa=9:dy=-yu:goto1899 
1895 xa=int(yo/dy%189) +18 

1899 return 


2009 

20081 rem I%k% hauptprogramm ur% 
2082 rem 4% initialisierungen ar 
2883 sosub 639 :gosub 645 :gosub 695 

208984 rem 4% menue wu 


2885 print kd$bl$cu$wf$:print tab(5)'"Waehlen Sie aus:"nf$cufcu$ 
2818 print" 1) Messwerte eingeben " 

2015 print" 2) Punktwolke zeiohnen " 

2828 print" 3) Anpassung vorgeben " 

2825 print" 4) Computer soll anpassen" 

20838 print" 5) rechnerisches Ergebnis" 

2835 print" 6) graphische Darstellung" 

2848 print" 7 Inter/Extrapolationen " 

2845 print cu$" 8) Ende'":gosub 675 

2046 : 

2858 rrintbl$:if g$c"1" or 9$>"8'" then 2885 

2855 if ga$C'"8'" then on val(g$) gosub 800,545,908,14088,1508,585,1708:g90oto 2885 
2868 end 
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Erläuterungen: 


In Z.15 werden die eindimensionalen Feldspeicher 'x’ und 'y’ deklariert, die 99 Meßwerte 
aufnehmen können. Ein weiterer Feldspeicher 'h’ dient dazu, die Indizes nicht logarith- 
mierbarer Wertepaare in Abhängigkeit der Hypothesen 2, 3, 4 zu registrieren, vgl. hierzu 
2.1111, 1211, 1311 sowie Z.1650-1695. (Nach Ermittlung des optimalen 'r’ und der 
zugehörigen Funktion werden diese Werte nachträglich überprüft und bei Unstimmigkeiten 
ein entsprechender Hinweis ausgegeben!) 


Z.20 stellt eine Rundungsfunktion dar, die bei der Transformation der mathematischen 
Koordinaten in die Graphikkoordinaten verwandt wird (Z.565, 592, 609). Die 7 Punkte 
des Menüs können unabhängig voneinander beliebig oft aufgerufen werden; lediglich Punkt 2 
sollte nicht nach Punkt 6 aufgerufen werden! | 


Waehlen Sie aus: 


1) Messwerte eingeben 

2) Punktwolke zeichnen 

3) Anpassung vorgeben 

4) Computer soll anpassen 
5) rechnerisches Ergebnis 
6) graphische Darstellung 
7) Inter/Extrapolationen 


8) Ende 


Im übrigen muß eine Meßreihe mindestens zwei logarithmierbare Wertepaare enthalten, 
wenn die Hypothesen 2, 3, 4 überprüft werden sollen! (Sonst gibt es einen ‚division by 
zero’ — Ausstieg in Z.1630) 


Bei Benutzung von Simon’s-BASIC ergeben sich folgende Änderungen: 


Z.170-360 
Streichungen: Z.175, 185, 190, 200 
Veränderungen: 


180 line 0,x3,319,xa,1 
195 line ya,0,ya,1977,1 


225 plot ii,xa-i,i:plot ii,xatli,l 

250 plot ii,xa-2,l:ıplot ii,xa-3,1: 
plot ii,xa+t2,i1:plot ii,xats,i 

280 plot ya-i,ii,i:plot yatl,ii,l 

305 plot ya-2,ii,i:plot ya-3,ii,l: 
plot ya+t2,ii,i:plot ya+ts,ii,i 

335 plot ii,xa-l,i 

355 plot yati,ii,l 
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2.395—-540 ist komplett auszutauschen gegen: 


395 rem #%*# achsen bewerten +#%% 
400 rem **#+ werte x-achse *%% 
405 if px>30 then 420 
410 s=yatS#px-1Il:ızesxats:ıtts=estr#$ (5m): 
g9osub465 
415 s=ya-5*px-11:tt$=str+(-Semxd: 
gosub465:goto 430 
420 s=yatpx-lIl:z=exatsıtt$=strF(mg): 
gosub 465 
425 s=ya-px-1l1l:stt$=str$(-mx) sgosub 465 
430 rem #** werte y-achse #%% 
435 if py>18 then 450 
440 s=yar z=exa-I5tpy-Sıttt=str+(Smy): 
gosub 465 
445 s=ya:z=exatötpy-Iıttsestr#(-Semy): 
gosub 4645:gato 460 
450 s=ya: z=xa-py-Sıtt!=strtimy)s 
goasub 4685 
455 s=eyatjızexatrpy-IJS:stts=sstr#t(-my): 
gosub 485 
4580 return 
4685 rem *%%* text in graphik #t%* 
470 if s<öO or s>319-len(ttF+)*8 
or z<SÖ or z>199 then return 
480 text s,z,tt*,1,1,8:return 
540 : 


2.545--630 

Veränderungen: 

570 plot i,j,l 

580 gosub 675:cset lıreturn 

590 gosub d24:cset 2 

s&10 plot i,j,i 

620 gosub #75:cset l:gv=2:return 


6827 if g9$="j" then cset 1: else: hires 1 
628 return 


Z.630-—640 ist ersatzlos zu streichen, desgleichen Z.695—-705 


2.1800 bis Ende 
Streichungen: Z.2003 
Veränderungen: 


1847 hires 1,0:gosub 170:gv=1:return 
2002 gosub &45 


3.3 Anwendungsbeispiele 


Die Anwendungsmöglichkeiten des gerade erläuterten Programms sind so erstaunlich, daß 
wir ihnen über die üblichen Testläufe hinaus einen eigenen Abschnitt zugestehen wollen. 
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3.3.1 Hookessches Gesetz 


Gleich zu Anfang erlebt man eine kleine Überraschung. Der Rechner gibt aus (Eingabe 
5.0., Punkte 4 und 5 aufrufen): 

Korrelationskoeffizient r = „99883471 

Es handelt sich um die Funktion: 

fix) = „226448568 * x hoch 1.09323263 

er hält also die Potenzfunktion y = 0.226 : x''9°3 für die der MeRreihe angemessen mathe- 


matische Beschreibung! Wenn man in einem neuen Testlauf den linearen Funktionstyp vor- 
schreibt, erhält man erwartungsgemäß einen schlechteren Korrelationskoeffizienten: 


r = .997 13626 


Angesichts der zugehörigen Funktionsgleichufig y = 0,34 : x - 0,67 konstatiert man einen 
systematischen Fehler bei der Längenmessung (Nullpunkt verschoben), der aber die Bestim- 
mung der Federkonstanten kaum beeinflußt: a = 34,3 N Daß die Potenzfunktion die 
Meßreihe wirklich besser wiederspiegelt, kann man empirisch mit dem Interpolationsteil 
überprüfen; die so berechneten Werte approximieren die Tabellenwerte im Falle der Potenz- 
funktion genauer als im Falle der linearen Funktion! 


3.3.2 Gleichmäßig beschleunigte Bewegung 
Nach Eingabe der o.a. Werte und dem Dialog 


Wollen Sie festlegen, wieviel 
Dezimalen angezeigt werden? 


Zahl der Nachkommastellen 
Korrelation r: 8 


andere Werte : 2 


erscheint die Anzeige 


Korrelationskoeffizient r = „77979057 
Es handelt sich um die Funktion: 


f(x) = 17.72 %* x hoch 1.998 


Daß man darin getrost eine Bestätigung des Weg-Zeit-Gesetzes s = a/2 t* sehen darf, liegt 
ausschließlich daran, daß physikalisch-theoretische Überlegungen zum Exponenten 2 füh- 
ren! (Es sei denn, man glaubt mit den Pythagoreern, die Natur bevorzuge ohnehin ganze 
Zahlen.) 
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Hier noch ein Bildschirmausdruck nach Aufruf von 2) und 6). Man kann erkennen, wie sich 
der extrem schwach gekrümmte Graph durch die schmale ‚‚Punktwolke” laviert! 





3.3.3 Boyle-Mariottesches Gesetz 
Ein Versuch mit Glaskolben und Manometer lieferte folgende Werte: 


Druck p in Bar 






Volumen V incm 


Nach Eingabe der Werte erscheint in der Anzeige r = — .99988947 


Die zugehörige Funktion y = 10° x"! bestätigt das bekannte Gesetz p- V =konst. Hier eine 
Hardcopy des Bildschirms nach Aufruf von 2): 
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3.3.4 Drittes Keplersches Gesetz 


Einer astronomischen Tabelle kann man die Umlaufzeiten der neuen Planeten unseres 
Sonnensystems sowie deren Abstände vom Zentralgestirn entnehmen: 









Merkur | Venus | Erde | Mars | Jupiter | Saturn | Uranus | Neptun | Pluto 


KOIRZIENI IE SEIEN IEIET 
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Planet 
Abstand 
Zeit 








Wie aus den Daten erkennbar, ist die Entfernung in AE (Astronomische Einheit, 1 AE = 
149597870 km) und die Zeit meist in Jahren (siderisch, d.h. mit 365,26 Tagen) gemessen. 
Gibt man zunächst die Entfernung und dann die Zeit ein (bei Merkur und Venus 
88/365,26 = 0.24092427 bzw. 225/365,26 = 0.61599956), so erhält man die Ausgabe 


Korrelationskoeffizient r = .IIIIT6& 

Es handelt sich um die Funktion: 

f(x) =1 *x hoch 1.9 

Damit hat der Rechner herausgefunden, daß sich die Quadrate der Umlaufszeiten zweier 


Planeten wie die dritten Potenzen der diesbezüglichen Sonnenabstände verhalten! 
(y=1:x'”;d.h.y= x°/2 oder y?=x°). 


3.3.5 Exponentieller Anstieg der Weltbevölkerung 


Lälßt sich die Hypothese vom exponentiellen Anstieg der Weltbevölkerung durch die fol- 
gende Tabelle stützen? 





Erdbevölkerung 


1920 1,8:10° 
1940 2,3:10° 
1960 3,1:10° 


Unser Computerausdruck bestätigt: 


Korrelationskoeffizient r = „Y7I7839488 
Es handelt sich um die Funktion: 


f(x) = B.Se-03 * e hoch „OiS6 x 


Voraussagen für das Jahr 1980: 4 Mrd. 
2000: 5,3 Mrd. 
2080: 15,7 Mrd. 


Natürlich muß man hier erwähnen, daß die tatsächliche Entwicklung der Weltbevölkerung 
von einer Anzahl weiterer Faktoren abhängt, die in drei Wertepaaren nicht erfaßt werden 
können, so daß die Funktion ein stark vereinfachtes Modell darstellt. 
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3.3.6 Entladung eines Kondensators 


Ein Kondensator unbekannter Kapazität wird an einer Gleichstromquelle unbekannter 
Spannung kurz aufgeladen und dann über einen Widerstand von 1 GQ (1 Gigohm = 10° 
Ohm) langsam entladen. Stoppuhr und statisches Voltmeter ermöglichten folgende Meß- 
reihen: (Zeit t in s ab Beginn der Entladung; zugeordnete Spannung U am Kondensator 
in Volt) 


t 5 10 15 20 25 30 60 120 
U 190,2 181 | 172,1 |163,7 | 155,8 | 148,2 | 109,8 60,2 


Der Rechner liefert 


Korrelationskoeffizient r =-. 979999969 
Es handelt sich um die Funktion: 


f(x) = 200.01709 * e hoch-.Ol x 


1 1 


= —t 


Folglich verläuft die Entladung nach dem Gesetz y = 200. e 1% "resp. Ult)=Ug.e FR, 
woraus sich sofort die Anfangsspannung U9 = 200 Volt und die Kapazität 10°’ F=0,1 uF 
ablesen läßt. Extrapolationen zeigen, daß die Spannung nach 10 min auf 0,5 V und nach 
30 min auf 3: 10° V gesunken ist. 


3.3.7 Höhenmessung mit dem Barometer 


Voraussetzung ist eine Tabelle, die die Höhe über dem Erdboden als Funktion des Luft- 
drucks wiedergibt: 


Luftdruck in mbar 1013 898 794 701 616 540 
Höhe in m 0) 1000 2000 | 3000 | 4000 5000 


Der Rechner zeigt (bei Unterdrückung den Dezimalen): 


Korrelationskoeffizient r =-. 977985861 
Es handelt sich um die Funktion: 


f(x) =-7951 * Inx + 59061 


6/ 


4 Aus dem Bereich der Zahlentheorie 


4.1 Magische Quadrate 


a) Mathematischer Hintergrund 


Magische Quadrate findet man schon in Handschriften des alten China; es sind quadratische 
Anordnungen natürlicher Zahlen mit folgender Besonderheit: 


(1) Alle Zeilensummen sind gleich einer bestimmten Zahl S. 
(2) Alle Spaltensummen sind gleich S. 
(3) Die beiden Diagonalsummen sind gleich S. 


Hier das älteste dreireihige Zauberquadrat: 





Wie kommt man zu solchen Quadraten? Für Quadrate mit ungerader Gliederzahl gibt es ein 
relativ einfaches Verfahren, das anhand des obigen Beispiels erklärt werden soll (Bild 4.1). 





Man beginnt mit der Zahl 1, die stets unterhalb der Mitte (also direkt unterhalb des Diagonal- 
schnittpunktes) eingetragen wird. Für die Unterbringung der übrigen Zahlen sind drei Regeln 
zu beachten: 


I. Die nächste Zahl soll nach Möglichkeit rechts unterhalb der soeben eingetragenen Zahl 
plaziert werden. Wenn das nicht geht, helfen die Punkte Il und/oder III weiter. 

Il. Wenn man an einen Platz gerät, der außerhalb des Quadrats liegt, d. h. unterhalb, ober- 
halb, links oder rechts der Umrandung, so gehe man drei Felder nach oben, nach unten, 
nach rechts oder nach links zurück. 

Ill. Stößt man auf ein Feld, das schon besetzt ist, so versucht man es zunächst mit dem 
links unterhalb des besetzten Feldes liegendem Platz. 


Nun geht es darum, die ftegeln in eine dem Rechner verständliche Form zu bringen, so daß 
dieser nach Eingabe der Zeilenanzahl n ein solches Quadrat liefert. 
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b) Allgemeiner Ablaufplan 


Eingabe einer ungeraden Zahl n 
Belegung des Feldspeichers Ali, j) von i, j = 1 bis n mit Nullen; i = (n + 3)/2; | =-i 1 


Wiederhole Wiederhole Wenn i>n,dann i «—1 
vonz=1an Wenn i<1,dann i«—n 
Wenn j >n, dann | «—1 
Wenn | <1, dann | «—n 
Wenn A(i,j) #0, dann i-—i+1 
und | *—j -1 
bis Ali,j) = 0 
Ali,j) + zZ; i+-—-it1V1;j+—j+1 
bis z=n‘n 


Ausgabe Alı,j)von i,j=1bisn 


Erläuterungen zum allgemeinen Ablaufplan: 

Ali, j) stellt einen zweidimensionalen Verbundspeicher (array) dar, dessen Komponenten i 
und j unabhängig voneinander von 1 bis n laufen. i kennzeichnet die Zeilen, j die Spalten 
des Zahlenquadrats. (Wir haben hier eine Realisation des mathematischen Begriffs Matrix 
vor uns!) A (2, 3) = O bedeutet z.B., daß die Zelle Nr. 3 in der 2. Zeile mit Null belegt 
wird; die Belegung aller Zellen mit Null (Speicherinitialisierung) ist nötig, um später Regel 
Ill anwenden zu können. 

Der Term (n + 3)/2 weist i stets die richtige Zeile für die Startzahl 1 zu, j = i -1 die zuge- 
hörige mittlere Spalte. 

Im inneren Block der beiden ineinandergeschachtelten Wiederholungen sind die Regeln II 
und III algorithmisiert; im äußeren Block die Regel | (i > n entspricht dem Unterschreiten 
der n-ten Zeile; j < 1 kennzeichnet z. B., daß wir uns links von der 1. Spalte befinden. Die 
Erhöhung der Indizes i und j um je 1 bedeutet die Ansteuerung eines gemäß Regel I vorge- 
sehenen Platzes!) 
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c) BASIC-Übersetzung 
18 REM *%%% ZAUBERSUADRATE #%% 


15 DIM A(86,936) 

28 INPUT" UNSERADE ZAHL € 886" ;N 
25 IF N/72=INT<N/23 OR ND85 THEN 28 
38 1=(N+t3)72:J=1-1:M=N#N 


35 FOR Z=1 TO M 

48 IF I>N THEN 1=1:60T0 58 

45 IF 1<£1 THEN I=N 

58 IF J>N THEN J=1:60T0 68 

55 IF J<c1i THEN J=N 

868 IF AS1,Nn<CD8 THEN 1=21+1:J=2J-1:60T048 
65 A(1,9=2:1=1+1:J=J+1 

78 NEXT 2:PRINT 


75 FOR 1=1 TON 

88 FOR J=1 TON 

85 PRINT RISHTSC" "+STRSCINTIACIT,JI3),3; 
98 NEXT J 

95 PRINT:PRINT:NEXT I 


Erläuterungen: 


Da wir mit RUN starten, erfolgt die Speicherinitialisierung automatisch. Die Beschränkung 
auf n = 85 gilt für die 38 k-Grundversion des C 64. (Wenn man die DIM-Anweisung in Z. 15 
erhöht, erfolgt zur Laufzeit die Fehlermeldung out of memory). Durch Einbeziehung des 
Index O (leichte Programmänderung) kommt man bis n = 87 (4 min Rechenzeit) 


d) Testläufe 


für n = 5 und n = 9 lieferten die folgenden Zauberquadrate 


ungerade zahl <{ 864? 5 ungerade zahl < 86? 9 
1124 720 3 37 98290 21 &2 13 53 5 
A122 25 8 16 6 38 79 30 1 22 #63 14 46 
17 5 3 2ı 9 97 79031 223 55 ıs 
10 18 1 1 2 i& 48 8 40 81 32 44 24 56 
23» 069025 571749 9 M 73 33 65 25 


26 58 18 50 1 42 74 34 66 
67 27 59 10 51 2 43 75 35 
Ss &8 19 &0 ii 52 3 44 76 


77 28 69 20 61 12 53 4 45 
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Der Wert der Summe S kann übrigens leicht vorhergesagt werden: 
n-S = 1/2-n?-(n?+1) ergibt Ss =65 und Sy, =369 


(Formel für die Summe der n ersten Natürlichen Zahlen heranziehen!) Wer mehr über 
Zauberquadrate erfahren will, s. z.B. [2], [3]. 


4.2 Pythagoräische Zahlentripel 
a) Mathematischer Hintergrund 


Pythagoräische Tripel sind Zusammenstellungen natürlicher Zahlen a, b, c, bei denen das 
Quadrat der größten Zahl c gleich der Summe der Quadrate der beiden anderen Zahlen 
b und a ist, also 


a? +b°=c? 
Mankanna, b, c daher als Seitenlängen rechtwinkliger Dreiecke deuten. Das erste derartige 


Zahlentripel ista=3,b=4,c = 5; wie könnte ein Programm aussehen, das systematisch 
solche Tripel sucht und anzeigt? 


Eine Möglichkeit besteht darin, den Rechner einfach probieren zu lassen, etwa dadurch, 
daß zu verschiedenen a, b der Term 


gebildet und auf Ganzzahligkeit überprüft wird. Dieses Verfahren ist aber zeitaufwendig; 
wenn man z.B. a und b unabhängig voneinander die Zahlen von 1 bis 100 durchlaufen 
ließe, wären das 10000 Einzeltests. Infolge der Kommutativität der Addition kann man 
diese etwa auf die Hälfte verringern. Es gibt aber noch andere Nachteile dieses Verfahrens. 
Bei Betrachtung der Ergebnisse fällt auf, daß z.B. der Fall 6, 8, 10 gegenüber dem Fall 3, 
4,5 nichts wesentlich Neues bringt, weil ersterer aus letzterem durch schlichte Multiplika- 
tion mit 2 viel einfacher und vor allem schneller gewonnen werden kann; ähnliches gilt für 
das Tripel 9, 12, 15 usw.; es würde sinnvoller sein, sich auf die Berechnung teilerfremder 
Zusammenstellungen von a, b, c zu beschränken! Diese Grundtripel erhält man nach 
folgendem Rezept: 

m und n seien natürliche Zahlen, die den Bedingungen 

I. m>n 

ll. mund n teilerfremd 

Ill. m und .n nicht beide ungerade 


genügen müssen, dann erhält man sämtliche Grundtripel aus den Termen 


2m °n; m? -n?: m? +n?: 


eine Herleitung hierzu finden Sie z.B. in 


A. Aigner, Zahlentheorie, de Gruyter, Berlin 75, S. 34/35 oder in 
B. Gündel, Pythagoras im Urlaub, 6. Aufl., Diesterweg, S. 87 bis 91. 
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b) Allgemeiner Ablaufplan 






Eingabe 
von 
m(2); n(O) 


Erläuterungen zum Flußdiagramm: 


Wenn man mit Startwerten m = 1 und n = 2 arbeitet, erhält man alle Tripel, beginnend 
mit 4,3, 5. Man beachte auch, daß die Variable n zwischendurch immer mal wieder auf 1 
heruntergesetzt wird. Die Bedingung, daß m und n nicht beide zugleich ungerade sein 
dürfen, wird durch Block 5 und 6 realisiert. 
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c) BASIC-Übersetzung 
48 REM % PYTHAGSORAE ISCHE ZAHLENTRIPEL % 


15 INPUT" M,N ";M,N 
28 PRINT" A B ca" 


25 N=N+i1 

38 IF M>N THEN 48 

35 M=M+1:N=1 

48 Q=(M-N) 72 

45 IF Q=INTC@Q) THEN 25 

58 GOSUB 78:1F V<>i1 THEN 25 

55 A=24M#N : B=MEM-NAN:C=MAM+NEN 
68 PRINT A,B,C 

65 GOTO 25 


78 REM %* UNTERPROGRAMM GG6T-BESTIMMUNS # 
75 U=M:V=N 

88 Q=U/V :R=U-VEINTCE® 

85 IF RC>B THEN U=V:V=R:60T0 88 

98 RETURN 


Anmerkung zum BASIC-Programm: 
Bei der GGT-Bestimmung verwenden wir das entsprechende Unterprogramm aus [4], 3.1 


d) Testbeispiele 


Für die Berechnung und Ausgaben der Tripel von 4, 3, 5 bis 612, 35, 613 benötigte der 
Rechner etwa 15 Sekunden. 


4 3 5 36 17 85 
12 5 13 72 65 97 

8 15 17 144 17 145 
24 4 25 28 99 181 
28 21 29 80 91 189 
48 9 41 148 51 149 
12 35 37 188 19 4181 
608 11 61 44 117 125 
28 45 53 838 165 137 
56 33 65 132 85 157 
94 13 85 176 57 185 
16 63 65 220 24 221 
48 55 73 24 143 145 
806 39 89 ... ... .0. 
112 15 113 128 119 169 


Bei Betrachtung der Tripel fallen zwei besondere Fälle auf: 


a) die erste und zweite Zahl unterscheiden sich nur um 1 
b) die erste und dritte Zahl unterscheiden sich nur um 1. 


Wenn wir die Zahlen als Seiten rechtwinkliger Dreiecke deuten, so haben wir im Falla) ein 
fast gleichschenklig-rechtwinkliges Dreieck und im Fall b) ein langgestrecktes, fast gleich- 
schenkliges Dreieck vor uns; man hat bewiesen, daß es von beiden Sorten unendlich viele 
gibt. (Man könnte das Programm so abändern, daß nur noch solche besonderen Tripel aus- 
gedruckt werden!) 
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4.3 Vermutung von McCarthy 


a) Problemstellung 


In den sechsziger Jahren entdeckte der Amerikaner McCarthy folgende Gesetzmäßigkeit: 
Man nehme eine beliebige natürliche Zahl. Ist sie gerade, so teilt man so lange durch zwei, 
bis das Ergebnis ungerade wird. Falls man nicht eins erhält, multipliziert man das Ergebnis 
mit drei und addiert eins; mit der so entstandenen geraden Zahl wiederhole man den Vor- 
gang. 

Ist die Ausgangszahl ungerade, verfährt man mit ihr wie oben mit dem ungeraden Zwischen- 
ergebnis usw. | 

Die bisher verwandten natürlichen Zahlen lieferten bei diesem Vorgang stets eine Folge von 


Zahlen, die mit 4, 2, 1 abbricht; man weiß jedoch noch nicht, ob dies für jede natürliche 
Zahl gilt. 


Beispiele: 

Gegeben sei 18, dann erhält man 9, 28, 14, 7, 22, 11, 34, 17,52, 26, 13, 40, 20, 10, 5, 16, 
8,4,2,1. 

Gegeben sei 21, man bekommt 21, 64, 32, 16, 8,4, 2,1. 

Entscheidend für den Abbruch ist offenbar das Auftauchen einer Zweierpotenz! 


Das unten angegebene Flußdiagramm zählt zusätzlich die Anzahl der Folgeglieder im 
Speicher k. 


b) Allgemeiner Ablaufplan Eingabe 


Ausgabe 
- von 
Ja k 







nein 


n 
gerade ? 
nein ja 


Ausgabe 
von 
n 
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c) BASIC-Übersetzung 


10 rem *#** Vermutung von McCarthy #%*% 


15 input'Sq n"zn:k=1:p=0:print"sgqq" 

20 if n=1 then 80 

25 if n/2=int (n/2) then n=n/2:goto 35 
so n=3#n+1 

35 gosub 40: k=k+ilsgoto 20 


40 rem *#%** Unterprogramm Ausgabe #%*% 
45 print tab(p)rightst" '+str$#(n),S) 
50 if k/20=int (k/20) then print'"sgqq":sp=Pp 

+6:if p>35 then gosub 50: p=0:print'Ss" 
3 return 


&0 rem *#*%* Unterprogramm Warten *r%* 
&5 if peek (203)=54 then 65 
70 return 


75 rem *##*+* Endausgabe *r%* 
80 poke 214,24:poke 211,1:ısys 58640: 

print'"Anzahl der Folgenglieder: 'k; 
85 gosub 0: end 


d) Testbeispiele 


n? 12 n? 907 
& 2722 4373 34 
3 1361 13120 17 
10 4084 560 32 
5 2042 3280 26 
1& 1021 1640 13 
8 3064 820 40 
4 1532 410 20 
2 766 205 10 
1 38.3 61 5 
1150 308 16 
Anzahl der Folgenglieder: 10 75 154 g 
1726 77 4 
843 232 2 
2590 116 1 
1295 58 
388% 29 
1743 88 
5830 44 
2915 22 
874& 11 


Anzahl der Folgenglieder: 35 
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A.A Gelöste und ungelöste Probleme der Zahlentheorie 


Zu den bekanntesten Vermutungen, die bisher nicht widerlegt, aber auch nicht in voller 
Allgemeinheit bewiesen werden konnten, zählen die von Go/dbach und von Fermat (18. 
bzw. 17. Jh.). Erstere besagt, daß jede gerade Zahl oberhalb von 2 als Summe von zwei 
Primzahlen dargestellt werden kann wie z.B. 12 = 7 + 5; letztere verneint die nichttriviale 
ganzzahlige Lösbarkeit vonx"+y"=z"”fürn>3. 

Aber bremsen Sie Ihren Forscherdrang noch ein wenig; zum letzten Problem wäre anzu- 
merken, daß man schon vor dem Einsatz von Computern durch theoretische Überlegungen 
(E. Kummer u.a., 19. Jh.) die Nichtlösbarkeit bis hinaus zu n = 624 nachweisen konnte, 
mit Computerunterstützung ist man mittlerweile bei n = 25000 angekommen, d.h. mit 
Ihrem Commodore 64 kommen Sie da nicht mehr mit! Ähnlich wird es mit der 
Goldbachschen Vermutung sein; bei den nächsten beiden Fragen ist dem Autor nicht be- 
kannt, wie groß der bisher untersuchte Zahlenraum ist: 


Gibt es ungerade vo/l/kommene oder perfekte Zahlen? 

Gemeint sind solche Zahlen, die sich als Summe sämtlicher Teiler — außer der Zahl selbst 
als trivialem Teiler — darstellen lassen. 

Beispiele: 6=1+2+3; 23=1+2+4+7+14 

Ist das wenigstens mit einer echten Teilmenge der oben genannten Teiler möglich, nennt 
man die Zahl ‚‚pseudoperfekt‘'. 

Beispiel: 945 =1+9+21+27+35+45+63+ 105 + 135 + 189 + 315 

Ungerade perfekte Zahlen hat man bis heute nicht gefunden! Schon Zu/er hat gezeigt, daß 
sie von der Form 12 n + 1 oder 36 n + 9 sein müßten. 


Ungelöst ist auch die Frage, ob es einen Quader mit natürlichen Kanten a, b, c gibt, so daß 

sowohl die Raumdiagonale Ja? +b?°+c? als auch die drei Flächendiagonalen „Ja? + b?: 
a’ + c”: /b? + c? natürlich sind. 

Bis 1957 war unsicher, ob 2°' - 1 bzw. 2°! + 99 Primzahlen sind; bei I) weiß man das 

seit Euler. Sie können es auch mit dem C-64 herausbekommen (Lösungen im Anhang). 
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5 Zufall und Wahrscheinlichkeit 


5.1 Theoretische Fahrprüfung: Ein Ratespiel? 


a) Problemstellung 


Bei einem multiple-choice-test werden z.B. 20 Fragen mit jeweils 5 Antwortmöglichkeiten 
angegeben, von denen immer nur eine richtig ist. Solche Situationen erlebt man im theo- 
retischen Teil der Führerscheinprüfung. Wir wollen annehmen, daß man wenigstens die 
Hälfte der Fragen richtig beantworten muß, um die Prüfung zu bestehen. 

Frage: Wie groß ist die Wahrscheinlichkeit des Bestehens für einen Kandidaten, der blind- 
lings jeweils eine der 5 angebotenen Antworten ankreuzt? 

Das gegenteilige Ereignis, nämlich höchstens 9 richtige Antworten anzukreuzen, ist durch 
das Rezept 


x DISEOEE 
“ v/\s/ \6 
v=0 
berechenbar; die gesuchte Wahrscheinlichkeit ergibt sich dann zu 1 —- w. Da wir natürlich 


auch andere Aufgaben dieses Typs mit unserem Programm lösen wollen, erstellen wir 
einen Ablaufplan für den Term 


k 


’ (9)-pr-ar 


v=0 


hierbei stksnundg=1-p. 


b) BASIC-Programm 


18 rem %%% ratewahrscheinlichkeit xx% 


15 ineut'"'BE| k,n,p" ;k,n,P 
28 q=1-p:s=qtn 


25 for v=1 to k 

36 h=1 

35 for i=1 to u 

45 h=h%s(n+i1-i)/i 

45 next i 

>58 s=sthip ruxgatrin-uv) 
>5 next u 


68 s=(1-s) #108 :s=int((s+B8.85) #108) 7108 
65 print"Wahrscheinlichkeit";s;'x" 
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Erläuterungen: 

Weil v = O den Startwert q” liefert, belegen wir einen Speicher S damit und lassen die 
For-Schleife nur noch von 1 bis k laufen. Der Hilfsspeicher H nimmt für jedes v den 
zugehörigen Binomialkoeffizienten 


n n(n= 1) (n= 2)..." (n=vt+t1) 
)- 12° 3..V 


auf, der in der inneren For-Schleife berechnet wird. 
Das Ausgabeformat geht davon aus, daß die Wahrscheinlichkeit in Prozent mit einer Nach- 


kommastelle dargestellt werden soll. 
c) Testbeispiel 


Nach 2 Sekunden erscheint als Ergebnis der oben gestellten Aufgabe 0,3 %, d.h. die Aus- 
sichten, durch bloßes Raten die Führerscheinprüfung zu bestehen, sind außerordentlich 
gering! 


5.2 Monte-Carlo-Methode 


a) Mathematischer Hintergrund 





Das Bild zeigt die Kurve zu einer über (0; 1) definierten Funktion f mit Werten aus (0; 1). 
Die Maßzahl für die Fläche unter dieser Kurve, die von den Achsen und der Senkrechten 
durch x = 1 begrenzt wird, kann man folgendermaßen näherungsweise berechnen: 


Man beschafft sich ein Paar von Zufallszahlen aus dem Intervall [0; 1]und deutet diese 
als Koordinaten eines Punktes aus dem Einheitsquadrat. Ein solcher Punkt kann entweder 
innerhalb der zu bestimmenden Fläche liegen wie z.B. P, oder außerhalb erselben wie 
z.B. P3; bei echter Gleichverteilung der einzelnen Zufallszahlen müßten sich als Folge 
davon auch die zugeordneten Punkte gleichmäßig auf dem ganzen Quadrat verteilen, 
d.h. aber, daß mit wachsender Anzahl der Punkte der Quotient aus der Anzahl der 
‚Treffer‘ und der Gesamtzahl der Punkte gegen die gesuchte Flächenmaßzahl streben 
wird! 

Durch Einbezug geeigneter Ähnlichkeitsabbildungen kann man auch Flächen von Funk- 
tionen mit anderen Definitions- und Wertebereichen nach dieser Methode berechnen! 
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b) Allgemeiner Ablaufplan 
Anfang des Hauptprogramms 


Eingabe: Anzahl der Punkte ‚,n 


ıIi-0;k«-0O 
Wiederhole z = Zufallszahl; S=f(z); z* Zufallszahl 
Wenn z<S 
dannk <k+1 
i-it1 
bisi=n 


Ausgabe von k/n 

Ende des Hauptprogramms 
Unterprogramm 

f(z) berechnen 

Return 


c) BASIC-Übersetzung 


18 rem #%% monte-carlo-methode %% 
11 : 

15 input'EX n";n:k=B:z=rnd(-1) 

16 : 


286 for i=i ton 

25 z=rnd (1) :gyosub 45:z=ernd(t1):if z<s then k=k+i 
38 next i 

35 print 4%k/n:end 


48 rem #3% funktionswertberechnung #%% 

45 s=sqar(1-ziz) :return 

Erläuterung: 

RND(- 1) liefert in Verbindung mit RND(1) stets die gleiche Folge von Zufallszahlen, vgl. 
auch [4] 8.1. 

d) Testbeispiel 

Funktion: f(x) =vV1-x?: 0<x<1 

Punktzahl: n = 100 (1000) 


Für die Viertelfläche des Einheitskreises erhält man 0,78 (0,784) und somit für m 3,12 
(3.136). Man konstatiert großen Zeitaufwand (8 bzw. 80 s) bei mäßiger Genauigkeit; bei 
100000 Punkten müßte man den Rechner schon über Nacht laufen lassen! 


5.3 Galton-Brett 


a) Problemstellung 


Im Einwohnermeldeamt einer Stadt sind rund 1000 Familien mit 4 Kindern registriert. 
Wir fragen uns, wieviele Familien darunter sind, die nur Jungen oder aber jeweils ein, zwei, 
drei, vier Mädchen haben. 
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Zur Beantwortung dieser Fragen bedienen wir uns eines Ga/lton-Bretts3) , dessen Besonder- 
heit einige regelmäßig angeordnete Reihen von Nägeln ausmacht.; 





Bei senkrecht befestigtem Brett fallen durch einen Trichter kleine Stahlkugeln so auf die 
Nagelreihen, daß jede Kugel an jedem Nagel mit gleicher Wahrscheinlichkeit nach rechts 
oder links weitergeleitet wird. Unter der letzten Nagelreihe sind Behälter angebracht, in 
denen sich die Kugeln ansammeln. (Zu vier (n) Nagelreihen gehören offenbar fünf (n + 1) 
Behälter.) Man kann das Ereignis „Kugel fällt nach rechts (links)‘' mit dem Ereignis „Fa- 
milienzuwachs Mädchen (Junge)’’ vergleichen, weil die Wahrscheinlichkeit für die Geburt 
eines Mädchens oder Jungen dieselbe ist. Dies gilt auch für den Fall, daß sich bereits drei 
Mädchen in der Familie befinden: Das vierte Kind wird mit (nicht mehr als) 50 % Wahr- 
scheinlichkeit ein Junge! (Genau wie die Kugel, die auf den vierten Nagel trifft, unabhängig 
von den bisher erfolgten Links/Rechts-Sprüngen gleichwahrscheinlich nach links/rechts 
springt). 

Die Anzahl der Familien mit drei Mädchen und einem Jungen erhält man deshalb nähe- 
rungsweise dadurch, daß man nacheinander 1000 Kugeln durch ein Galton-Brett mit vier 
Nagelreihen fallen läßt und die im Behälter Nr. 3 landenden Kugeln zählt. 


Es gibt zahlreiche vergleichbare Fragestellungen, die sich ebenso mit Hilfe eines Ga/ton-Bretts 
modellhaft lösen lassen. Im Prinzip geht es um die Frage, mit welcher Wahrscheinlichkeit 
eine Kugel nach Durchfallen von n Nagelreihen im k-ten Behälter landet (k = 0, 1,..., n). 
Man kann zeigen, das diese Wahrscheinlichkeit durch den Term 
(K) 

k 
= mit ( 


yah 


u (n=-2)...(n-k+1) 
K 1:2 3... k 


dargestellt wird (s. Anhang). 


3) Francis Galton, 1828-1911 
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In unserm Beispiel istn=4 undk = 3, also ist die zugehörige Wahrscheinlichkeit 


14 1 43:2 1 


Folglich haben 2 = 25 % der Familien einen Jungen und drei Mädchen, wenn man eine 


hinreichend große Zahl von Familien mit vier Kindern zugrundelegt. 

Weil ein konkretes Galton-Brett schwer exakt herzustellen ist und außerdem eine unver- 
änderliche Zahl von Nagelreihen aufweist, wollen wir einen elektronischen Ersatz kon- 
struieren, bei dem beliebig viele Kugeln beliebig viele Nagelreihen passieren können. 


b) Allgemeiner Ablaufplan 


Eingabe vonm Kugeln und n Nagelreihen 
i=0; a(k)=0 für k=-0,1,...,n 


Wiederhole 


Wiederhole |j=j+ 1 
z= RND 
Wenn z<05 
dannk =k+1 


a(k)=alk)+ 1 


Ausgabe vonalk);k =0,1,..., n 


Erläuterungen: 





m Kugeln durchfallen n Nagelreihen. Die Variablen / und / zählen sie jeweils. 


Der Feldspeicher a stellt den Auffangbehälter mit den Kammern O bis n dar, die über den 
Index k angesteuert werden. Die Zufallsfunktion RND liefert gleichwahrscheinlich Werte 
unter und über 0.5, die als „links’”' und ‚‚rechts‘ interpretiert werden. 


c) BASIC-Übersetzungen 


10 REM *%*%* GALTON-BRETT +#%** 

11: 

15 INPUT" M KUGELN, N STUFEN";ZM,N:DIM AN): Z=RND (-1) 
1& : 

2Q0 FOR I=1 TOM 

25 FOR J=1 TON 

30 IF RND(1)<O0.5 THEN K=K+1 

35 NEXT J 

40 AlK)=A(K)+1:K=0 

45 NEXT I 


„OÖ FOR K=0 TON 
9 FRINT A(k); 
&0 NEXT K 
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Erläuterungen: 


Durch RUN werden die Speicher automatisch initialisiert, deshalb erübrigt sich die Über- 
setzung der zweiten Zeile. Auf den Speicher z konnte man verzichten, was den inneren 
Schleifendurchgang beschleunigt. 


Die Argumentfolge ‚— 1, 1’ veranlaßt den Zufallsgenerator, eine ganz bestimmte Zahlen- 
folge zu erzeugen, so daß der Leser die Testergebnisse vergleichen kann. 


Für den Fall n = 7 bringen wir noch eine Version, mit der man die Vorgänge am Galton- 
Brett auch optisch und akustisch verfolgen kann. (Zu Z.65, 75, 85, 205, 210 s. Kap. 1; zum 
Klangeffekt vgl. Bedienungshandbuch S. 91.) 


REM ##%#  GALTON-BRETT-SIMULATION *%% 


Z=RND<(-TID 

I=6:FOR K=B8 TO 7:ACK?=B:NEKT K 

INPUT"IZE ANZAHL DER KUGELN";M:GOSUB 198 
I=1+1:J=8:K=8:PRINT"ES" TAB(18) "8"; 

J=J+1:G0SUB 268 

Z=RND<1>:1F 2<£8.5 THEN K=K+1:PRINT"'EBle" ; :50T0 508 
PRINT'ERBBRIe' ; 

GOSUB 228:1F J<7 THEN 35 

A<CK>=ÄACKI +1:G0SUB 298 

IF I<M THEN 38 


2=24:POKE 214,2:5=-2 

FOR K=8 T09 7 

5=5+4:POKE 211,5:5YS 58648:PRINT Ack)>; 
NEXT K 

IF FEEK(283)=64 THEN 85 

GOTO 28 


REM #4 UNTERPROGRAMME Er 
REM #%% BILDMASKE LE 
PRINT"K \z7" 
PRINT" " 
PRINT" u" 
PRINT" 0" 
PRINT" 

PRINT" + 
PRINT" 

PRINT" + 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" LI 11101 000g 

RETURN 

REM #%%%* BEHAELTER FÜELLEN %**% 

PRINT" " :H=ACK)-1:2=1NTCH/3) :S=A(K)-2Z#3 :2=22-2 :5=2+K#4+8 

Z1=PEEK (214) :S1=PEEK(211) :FOKE 214,2:POKE 211,5:$Y8 58648:FRINT"@" 


+ + 
+ + + 
+ + + 
| | 
| | 
| 
| 
| 
| 
| 


- - - - - - - - + 
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FOKE 214,2Z1:POKE 211,51:5YS 58648 

RE TURN 

REM *#% KLANGEFFEKT *x% 

S1I=54272:FL=S1:FH=S1+1:T1L=S1I+2: TH=S1+3:W=S1+4:A=S1+5 :H=S1+6 :L=31+24 
FOR »=1 TO 5 

POKE L,x:POKE A,21:POKE H,8:FOKE FH,64:POKE FL,28@:POKE W,129 

NEXT %& 


POKE N,&:POKE A,8:POKE AD+38,8 
RETURN 

REM #%% PAUSENSCHLEIFE 6% 
FOR IJ=1 TO 288 :NEXT 

PRINT"M "; 

RETURN 


d) Testbeispiele 


1. Einführungsbeispiel (m = 1000,n =4): 50 253 373 265 59 
Theoretisch: 62,5 250 375 250 62,5 
Interpretation: Von 1000 Familien mit 4 Kindern haben jeweils 


50 (62,5) Familien 4 Jungen 
253 (250) Familien 3 Jungen und 1 Mädchen 
373 (375) Familien 2 Jungen und 2 Mädchen 
265 (250) Familien 1 Junge und 3 Mädchen 
59 (62,5) Familien 4 Mädchen 


2. Wie 1.; wir überzeugen uns davon, daß die prozentualen Abweichungen bei der Simula- 
tion mit m = 4000 Werten in der Regel geringer werden (Gesetz der großen Zahlen) 


simulierte Werte: 255 998 1494 984 269 
theoretische Werte: 250 1000 1500 1000 250 


3. Jemand wirft 64 mal 7 Münzen auf den Tisch. Wie oft tritt dabei der Fall ‚A mal Wappen 
und 3 mal Zahl’ auf? 

Vorbemerkung: Ob 7 Münzen gleichzeitig fallen oder eine Münze nacheinander 7 mal fällt, 
ist für das Gesamtergebnis gleichgültig! (m = 64, n = 7) 


Wir zeigen einen Bildschirmausdruck unter Benutzung des zweiten Programms: 


N/ 





Im Behälter Nr. 3 bzw. 4 findet man die gesuchte Anzahl. (Infolge des Zufallsstarts 
RND (- TI) wird der Leser diesmal abweichende Ergebnisse erhalten; die theoretische Ver- 
teilung ist: 


05 35 105 175 17,5 105 35 0,5. 


5.4 Irrfahrten 


a) Problemstellung 


Herr Huber findet sein Motel (Z) in Los Angeles nicht wieder, weil alle Straßen dieses 
Viertels gleich aussehen und starr quadratisch angeordnet sind. Nur der Umstand, daß er 
durch eine das Viertel umfassende Einbahnstraße von Zeit zu Zeit zwangsläufig zu dem 
ihm bekannten Startplatz (S) zurückgeführt wird, gibt ihm die Hoffnung, doch noch ein- 
mal den Weg von S nach Z zu finden! 


Wir fragen uns nun, wie viele Teilstrecken Herr Huber wahrscheinlich dabei zurücklegen 
muß, wenn er an jeder Kreuzung völlig willkürlich südlich (Fall 1), östlich (Fall 2) oder 
nördlich (Fall 3) einbiegt, bis er sein Ziel erreicht. Der Einfachheit halber nehmen wir 
noch an, daß er außer auf der Einbahnstraße nie in westliche Richtung fährt! 





Zur Lösung des Problems entwerfen wir ein Simulationsprogramm; wir schematisieren die 
Situation in der Weise, daß wir das genannte Straßennetz in den ersten Quadranten des 
Achsenkreuzes eingebettet denken, so daß der einzelne Straßenzug eine Einheitsstrecke im 
Gitternetz darstellt und Startplatz S bzw. Ziel Z durch die Koordinaten (0; 1) und (3; 3) 
festgelegt sind; die weiteren Überlegungen gehen aus dem Struktogramm hervor. 
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b) Allgemeiner Programmablaufplan 








Anfang des Programms „‚Irrfahrt”” 


ir 0;jr0;Kk- 0; x er 0; y*l 


Wieder-!j<j+t1;k*-k+1 
hole s = Zufallszahl aus {1, 2,3} 


a I—_ 5 


. x=4 oder y=4 oder y = 0? 
I-i+t] 
je0;xe0;yel 


bisx=y=3 




























Ausgabe von i, |, K 
Ende des Programms „‚Irrfahrt‘' 


Erläuterungen zum Programmablaufplan: 


Die Variable k zählt die Gesamtzahl der durchlaufenen Einheitsstrecken bis zur Erreichung 
des Ziels (ohne die ‚„‚Rückläufe‘); die Variable i die Anzahl der Rückläufe zum Start und 
„) schiießlich die Anzahl der Strecken beim letzten, erfolgreichen Anlauf von S aus. Die 
Speicher x und y registrieren die jeweils aktuelle Position des Irrläufers in einem Gitter- 
punkt. Durch die letzte Anfrage wird der Rücklauf organisiert und durch den Schleifenaus- 
tritt endet das Programm mit der Anzeige der Inhalte von i, |, K. 


c) BASIC-Übersetzu ng 


10 REM **# IRRFÄAHRTEN *%*%* 

11 : 

15 1=0: J=0:K=0: X=0: Y=1 

20 J=J+1:K=K+i 

>29 S=INT(RND(O)#3) +1 

30 ON S GOTO 35,40,45 

35 Y=Y-1:60T0 50 

40) X=X+r1:60T0 SO 

45 Y=Y+1 

50 IF X=4 OR Y=4 OR Y=0 THEN 1=1+1:J=>0:X=0:Y=1 
55 IF NOT (X=3 AND Y=3) THEN 20 
ya : 


60 PRINT 1,J,K:G0TO 15 


5.4 Irrfahrten 35 


d) Testbeispiele 


Für die ersten 10 Simulationen erhält man stark schwankende Ergebnisse: 


DODU- BODON" 
N 
NONnodosySsSsoNSsaoaı 
> 
D 


Man beachte, daß die Rückläufe immer nur als Ganzes gezählt werden (i) und nicht als 
Summe von Teilstrecken, der kürzeste Weg ist 5 Strecken lang; wenn einer Strecke in Wirk- 
lichkeit 1 km entspricht, ergibt sich folgendes: 


Mittlere Werte für die ersten Simulationen 

i=7 j=6 k>=-281 

Das bedeutet, daß Herr Huber, wenn er wirklich planlos umherirrt, statt der notwendigen 
5 km im Mittel 28 km fährt, bis er endlich doch noch zum Ziel gelangt; hierbei ist er im 


Mittel 7 mal an seinen Startplatz zurückgeführt worden und gelangt von dort beim 8. Mal 
auf einer Strecke von durchschnittlich 6 km nach Z. 
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6 Approximationsverfahren 


6.1 Elementare Verfahren zur Berechnung von Wurzeln, Logarithmen und 
Winkelfunktionen 


Vorbemerkungen: 

Der C-64 liefert — wie schon jeder bessere Taschenrechner — Wurzeln, Logarithmen, Sinus- 
werte usw. durch Betätigen weniger Tasten. Wozu dann eigene Programme? 

Erstens versteht man anschließend besser, wie der Rechner prinzipiell zu seinen Ergebnissen 
kommt. (Daß die entsprechenden Assemblerroutinen etwas anders verlaufen, ist nicht so 
wichtig). 

Zweitens dient es der mathematisch begrifflichen Klärung, diese überwiegend irrationalen 
Werte einmal allein mit Hilfe der vier Grundrechenarten zu ermitteln! 


6.1.1 Höhere Wurzeln (Newtonverfahren) 


a) Mathematischer Hintergrund 


Es handelt sich um die Verallgemeinerung des Heronschen Verfahrens vgl. 7.2. in [4]; ohne 
Zuhilfenahme der Differentialrechnung kann man sie folgendermaßen verstehen: 


Man setzt YR =xXog+ do, wobei x. einen ersten Näherungswert und do den zugehörigen 
Fehler darstellen soll. Nach Potenzierung der Gleichung mit n ergibt sich 


R=(xotdo)"=xd+n xg "dot... 


weil do klein gegenüber x. ist — man denke sich etwa xo als kleinste ganze Zahl unter 
YR — kann man die Gleider mit dö, da usw. vernachlässigen und erhält 


R-xo 
do = n—1 ’ 
N'’Xo 
n R-xB | n 
sodaß YR * xo+ ——, einen besseren Näherungswert darstellt als YR = xo. Nun 
Nn'Xo 


wiederholt man das Verfahren: 
R-xo 


n . 
VR=x,+d,, wobei X1=Xot , 


N 
N'Xo 
und d; der neue, kleinere Fehler. Mehrfache Wiederholung führt auf den Ausdruck 


R-xxk 





KEINo; Xk+1 =x.t+ nn 
Nn'Xk 
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b) Allgemeiner Ablaufplan 





Der letzten Gleichung entspricht die Schleife x =<x + 


Nach Eingabe des Radikanden R, des Wurzelexponenten n und eines Startwertes x wird 
x""1im Unterprogramm“) berechnet und auf s abgespeichert und anschließend das neue x 


gemäß 
R X 
x -<+tx berechnet. 


ns N 


Den Zusammenhang mit dem Spezialfall n = 2 erkennt man am besten aus der Umformung 





c) BASIC-Übersetzung 


10 REM *#** N-TE WURZEL NACH NEWTON #%*% 


11: 

20 INFUT'"LB R, N, xO"SR,N,X 

21: 

30 GOSUB 40: X=R/N/S-X/N+X:FRINT X:60T0 30 
Sl: 


40 S=1:FOR K=1 TO N-1:5=%#5:NEXT: RETURN 


d) Testergebnisse 


Wir bringen Ausschnitte von Bildschirmausdrucken: 


rn, x0? 2,3,1.9 rs. nn, x07 12345,6,7 


1.2962963 

1. 26093223 
1.25992186 
1.259921059 
1.25972105 
1.25992105 


rn, x07 3,2,1.5 


1.75 

1.7321428% 
1. 73205081 
1. 73205081 
1. 73205081 


4) Die Verwendung der -Taste wäre logisch fragwürdig, weil die zugehörige Routine Logarithmen 


3. 95575257 
3.23769937 
4.88670922 
4.81059931 
4.80745963 
4.8074545 
4.83074545 
4.8074545 


benutzt. Man könnte dann gleich sagen: x ! 1/N 
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6.1.2 Bestimmung von Logarithmen 


a) Mathematischer Hintergrund 


Das hier vorgestellte Verfahren beruht auf der Methode der fortgesetzten Halbierung, 
vgl. 7.1in [4] 

In einer Gleichung wie 2°=8 ist „3 der Exponent bezüglich der Basis 2; bezogen auf die 
Zahl 8, den Numerus, nennt man 3 auch Logarithmus: 3 ist der Logarithmus von 8 zur 
Basis 2. Wenn man einen Logarithmus berechnen soll, müssen also zwei Zahlen, nämlich 
Basis und Numerus, bekannt sein; die Gleichung 


7°“ = 3 ist gleichwertig mit log3 = x 


Anders als oben kann man den Logarithmus von 3 zur Basis / nicht sofort angeben; wir 
wollen anhand des folgenden Flußdiagramms studieren, wie man sich Näherungswerte 
beliebiger Genauigkeit beschaffen kann. 


b) Allgemeiner Ablaufplan 





Eingabe 
z,c,d 


Ausgabe 
m 
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Erläuterungen: 


„ce“ meint die Basis und „d’ eine vorzugebende Genauigkeit. Der Numerus wird auf ‚‚z” 

abgespeichert, dort aber im Verlauf des Programms von anderen Zahlen verdrängt. Ein 
volles Verständnis der Vorgänge ergibt sich aus der nun folgenden Simulation (z sei mit 3 
und c mit 7 belegt): 


1. Durchlauf 
m + 1/2;z+*9;9 > 7? ja, daher z + 9/7 und a * 1/2. 
Wir wissen jetzt: 9= 7°°* >7,d.h. 1/72 <x<1 


2. Durchlauf 


m + 3/4; z + 81/49: 81/49 > 7? nein, daher b = 3/4. 
Wir wissen jetzt: 81/49 = 7%*/7? <7,d.h. 112 <x< 3/4 


3. Durchlauf 


m + 5/8: z + 3°/7* = (8/5)? (8/5)? > 7? nein, daher b + 5/8. 
Wir wissen jetzt: 3°/7* = 7°%/7? <7,d.h. 1/2 <x<5/8 


4. Durchlauf 


m + 9/16; z + 3'° /7° ist größer 7, daher z + 3!° /7° und a + 9/16. 
Wir wissen jetzt: 316 /78 = 71% 78 >7,d.h. 9/16 <x<5/8 


usw.; wie man sieht benutzt man außer den Grundrechenarten lediglich einige Potenz- 
gesetze in Verbindung mit natürlichen Exponenten: 
x” x? 
(&) = y?' (x")"=x"";n>m>x”">x” fürn,maus INundx>1. 
Es muß auch noch hervorgehoben werden, daß unser Verfahren nur unter der Voraus- 


setzung 1 < Numerus < Basis funktioniert, was aber wegen der bekannten Regel logxy = 
logx + logy keine Einschränkung darstellt (Beispiel: „log12 = „log3 + „log4). 


c) BASIC-Übersetzung 


10 REM *x** ZEHNERLOGARITHMUS #%%* 

il: 

15 INPUT" NUMERUS, BASIS"; 2,C: A=0: B=1 
16 3 . 

20 M=(A+B)/2 

29 Z=Z#Z 

350 IF Z>C THEN Z=Z/C:A=M:GOTO 40 


55 B=M 
40 IF B-A>1E-7 THEN 20 
45 FRINT" W LOG = ";M 


d) Testbeispiele 


Beispiele der Basis e*= 2,718 kann man mit der entsprechenden Funktion ‚„‚log’’ überprüfen; 
bei den übrigen Basen benutzt man am besten die Beziehung 





logz = .logz 
c e 
elogc 


Sollen alle Dezimalen richtig sein, benötigt der Rechner ca. 2 s. (d = 10°) 


10 
11 
15 
16 
20 
25 
So 
33 
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6.1.3 Sinustabellierung 


a) Mathematischer Hintergrund 


Es handelt sich um die Möglichkeit, ohne Potenzreihe eine — immerhin 4-stellige — Tabelle 
zu erstellen; man benutzt dazu lediglich den elementar berechenbaren Spezialfall von 45° 
(Seite: Diagonale im Einheitsquadrat gleich 1 :\/2), die Beziehung sin? + cos? = 1 und ein 
Additionstheorem in der Form sin (w — 1°) = sin w-cos 1°—-cosw : sin 1°. Man beginnt 
mit w = 45°; weil der Unterschied zwischen sin 1° und arc 1° (arc: Bogen zum Winkel im 
Einheitskreis) minimal ist, nehmen wir für sin 1° den zugehörigen Bogen r: 180 (bezeich- 
nen wir das Gradmaß eines Winkels mit g und das Bogenmaß mit b, so gilt der einfache 
Zusammenhang b:g = r:: 180). Damit kann man den Sinus für 44° rekursiv aus dem für 
45° erhalten, den Sinus für 43° aus dem für 44° usw. 


b) Allgemeiner Ablaufplan 
Anfang des Programms 
s + 1/22; 50 *7:180; co «V1-s2;i+45 
Wiederhole | Ausgabe von i und $ 

i-i-1 

c+-y1-s? 

SES'CH CH 

bisi=0 

Ende des Programms 
Erläuterung: 


In der vorletzten Zeile des Wiederholungsblocks wird der Kosinus als Y1 - sin? gebildet 
und in der letzten Zeile findet die Rekursion der Sinuswerte statt. 


c) BASIC-Übersetzung 


REM *** SINUSTABELLIERUNG arr* 


5=0.5%#SQOR (2) :50=1#/180:C0=5SOR (1-50%*50) : 1I=45: FRINT"KN GRAD SINUS BE" 
FOR I=45 TO 1 STEF -1 

PRINT" "I; INT((S+SE-5) #1E4) /1E4 

EC=SUR (1-5%#5) :5=5*C0-C*50 

NEXT I 


Erläuterung: 
In Z.25 runden wir S auf 4 Dezimalen 
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d) Testergebnis (Auszügen von Bildschirmausdrucken 


GRAD SINUS 
45 . 7071 10 „1736 
44 .6747 9 „1564 
45 682 8 „1391 
42 PK-1-) 2 7 „1218 
41 .Hsal & .1045 
40 „6428 =) 0871 
39 6293 4 0697 
38 6157 3 . 0523 
37 ‚018 2 0349 
36 .5878 1 .2174 
35 3736 
34 35972 
33 .u44& 
32 299 
S1 .515 
30 .3 


Der Fehler, den wir bei der Ersetzung von sin 1° durch arc 1° machten, war m: 180- sin 1° = 
0,0174532925 —- 0,0174524064 = 0,0000008861; er bewirkte im Verlauf der Rekursion 
am Sinus einen Fehler, der gegen Ende 0,0174134173 - 0,0174524064 = — 0,0000389891 
betrug! 


6.2 Allgemeines Iterationsverfahren 


a) Problemstellung 
Schüler versuchen gelegentlich eine Gleichung wie 
x? - 1,5x-7=0 
folgendermaßen zu lösen: 
x? = 15x+7 
7 


x=1,5+% 


Hier geben sie dann auf; mit Rechnerhilfe könnte man aber auf dem beschrittenen Weg 
fortfahren, wenn man das letzte Gleichheitszeichen in eine Zuweisung umdeutet und das 
ganze in eine Schleife legt: 
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Mit xo = 2 als Startwert erhält man nacheinander 


x, >5 

x = 2,9 

x3 = 9137931 usw. bis 
Xa5 = 3,5. 


Von hier ab tritt keine Änderung mehr ein. 


yatı 1,5 


Wie man aus der Skizze ersieht, hat man soeben den Grenzwert g der /terationsfolge 
Xn+1=15+ 7x, %o”2 


numerisch erfaßt. 


In [5], S. 68, wird gezeigt, daß man im Falle zweier verschiedener reeller Lösungen einer 
quadratischen Gleichung auf diese Weise bei beliebigem Startwert # O immer zum Ziele 
kommt, weil eine lineare Konvergenz gegen die betragsmäßig größere Lösung vorliegt. 


Da die zweite Lösung leicht über Vieta erhältlich ist und im Falle einer eindeutigen Lösung 
die binomische Umformung weiterhilft, kann man prinzipiell jede quadratische Gleichung 
so behandeln, falls sie überhaupt reelle Lösungen besitzt! Natürlich ist das allgemeine Ite- 
rationsverfahren nicht für quadratische Gleichungen erfunden worden; verallgemeinert geht 
es um die Lösung einer Gleichung des Typs 


x=t(x); 


wie man sich anhand vergleichbarer Skizzen klarmachen kann, gelingt das Verfahren nur 
bei solchen Funktionen f, deren Graphen in einer Umgebung von £& eine Steigung aufwei- 
sen, die betragsmäßig unter 1 bleibt (siehe Anhang). 
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Oft muß man die vorgelegte Gleichung erst in eine iterationsfähige Form bringen; 
x?+2x-cosx=0 
z. B. führt man auf die naheliegenden Ansätze 


x = (cosx -x?)/2 oder 

x + cosx/(x + 2) 

Wir stellen ein Programm für das soeben beschriebene allgemeine Iterationsverfahren vor, 
in dem die Schleifendurchgänge gezählt werden und das Verfahren abgebrochen wird, so- 


bald sich zwei aufeinanderfolgende x-Werte um weniger als die vorzugebende Zahl d unter- 
scheiden. 


b) Allgemeiner Ablaufplan 


Anfang des Programms 

1. Eingabe des Startwertes x und der Genauigkeit d 
k «- 0 (Zähler) 

2. Wiederhole |k=-k+1 


a=-x 
f(x) im U.P. berechnen 
x+-f(x) 

bis |\x -al <d 


3. Ausgabe von k und x 


Ende des Programms 


c) BASIC-Übersetzung 


418 rem *%%%* allg. iterationsverfahren *%% 


15 deffn f(x3=45.6/7/48.8/x tx #x 73 
28 input"BEl *%o, Nachkommastellen";x,n 
25 z=int(18tn+t.1) :d=.117z:k=8 


3B k=k+t1:a=x 
35 x=fnf(x) :if abs(x-a)>=d then 38 


48 x=xiz:if x-int(x))>=.5then x=intix?) +1 
45 x=int(x)7z:h$=str$ck) 
58 print'E %X"mid$ch$,2,lenth$)-12" ="x 


Erläuterungen: Die Genauigkeit d wird indirekt durch Vergabe der Nachkommastellenzahl 
n bestimmt. „+ .1' und „11 (statt „.5’) sollen Rechnerungenauigkeiten ausgleichen. 


Zum Rundungsmechanismus (Z. 40,45) s. 1.2.4. Der Aufwand in Z.50 dient der indizierten 
Schreibweise von x. 


d) Testaufgabe 


Wie tief sinkt eine Bleikugel in Quecksilber ein ? 


Jeder Körper sinkt solange in eine Flüssigkeit ein, bis sein Gewicht gleich dem der verdräng- 
ten Flüssigkeit ist (Prinzip des Archimedes!). 
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Istr der Radius der Kugel und YyK = 11,4 das spezifische 
Gewicht von Blei, so ergibt sich das Gewicht der Blei- 
Kugel zu 


4 
Ye Ve layer 


Andererseits hat eine Kugelkappe der Eintauchtiefe h das Volumen 
Vr =7h. (3r -h) 


wie man der Formelsammlung entnehmen kann. Unter Beachtung der Wichte des Queck- 
silbers von Y4 = 13,6 gelangt man zu der Gleichung 


14-30 - 13,65. h? (3r-h) 


Es bedeutet keine Einschränkung, r = 1 zu setzen, dann ergibt sich 
11,44 = 13,6 h? (3-h) 

oder 
11,4 4 
—  ——=3:h? -h’ 
13,6 


und nach Division durch 3h 


_456 _,_h _ _456 1 
8. 3 wm X 08 x 


als iterierfähige Form. Mit xo = 1 als Startwert erhält man 


x, = 1,45098039 x = 1,47205164 x, = 1,48155647 


usw.; ab xg ändert sich die zweite Dezimale nicht mehr und ab x, steht die Iteration mit 
1,49025893. Teilt man durch 2 (Durchmesser), dann bekommt man als relative Eintauch- 
tiefe der Kugel rd. 74,5 %. 


Weitere Testbeispiele 


1. x?+2x-cosx=0 

1.1. x = (cosx -x?)/2;x0 =0; N=5 Ergebnis: 0,38772 bei k = 24 
1.2. x= cosx/(x +2); xo =0; N=5 Ergebnis: 0,38772 bei k = 13 
2. x?-Inx-3=0 | 

21 x= Vinx+3; xo=1: N=5 Ergebnis: 1,90969 beik =8 
2.2. x= eX "°; xo=1; N=5 Ergebnis: 0,04991 beik =5 


3. x?+2x?-23x?+2x+1=0 
x=a,/(x!+2x?+ 2x +1)/23;xo=1; N=8 Ergebnis: 0,26051835 bei k = 15 


4. x=sinx+1;xo=1;N=8 Ergebnis: 1,93456321 bei k = 20 
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6.3 Iteration von Gleichungssystemen 


a) Mathematischer Hintergrund 


Unter gewissen Voraussetzungen läßt sich das in 6.2 besprochene Verfahren auch zur 
Lösung von Gleichungssystemen heranziehen; man nehme als Beispiel 


256 - 3y + 5z = 277 
4x + 518y + 2z = 1034 
7x 12y + 870z = 2641 


und löse die 1., 2., 3. Gleichung nach x, y, z auf: 


1 
—— + 
x = Ju 277 3y -5z) 


1 
y- 78,0 1034 + 4x - 2z) 
1 


= —— = + 
Z a0 (2641 7x+12y) 


Wenn man die Variablen der rechten Seite mit Nullen belegt, erhält man 





277 

x = 555 = 1,08203125 
— 1034 

V=g = 1,996139 
2641 

z = 570 > 3,03563219 


Daß diese Werte jetzt schon so nahe der Lösung (1, - 2,3) sind, ist eine Folge davon, daß 
die Koeffizienten auf der Hauptdiagonalen die restlichen um ein Vielfaches übertreffen. 


Setzen wir die neuen Werte in die Gleichungen der rechten Seite ein, erhalten wir 
x = 0,999349305  y=- 1,99950413 z = 2,99939323 


Die Konvergenz scheint offensichtlich! 

Es ist plausibel, daß das Verfahren gegen den Lösungsvektor konvergiert, falls es überhaupt 
konvergiert. Weiterhin leuchtet ein, daß eine Konvergenz zu erwarten ist, wenn — gegebenen- 
falls durch Umstellen von Gleichungen — die Glieder der Hauptdiagonalen betragsmäßig 
„hinreichend” größer als die anderen sind. 


Was bedeutet aber hinreichend” im konkreten Fall? Auskunft darüber gibt das soge- 
nannte Zeilensummenkriterium (gültig für n Gleichungen mit n Variablen): 


Wenn in jeder Gleichung (= Zeile) das Diagonalelement betragsmäßig größer als die Summe 
der Beträge der restlichen Koeffizienten ist, dann konvergiert das Iterationsverfahren mit 
beliebigen Startwerten. 


Einen Beweis, der sich u.a. auf den allgemeinen Kontraktionssatz, den R" als vollständig- 
metrischen Raum und den Matrizenkalkül stützt, findet der Leser in [6], S. 88 ff. Speziell 
für n= 2 ist der Beweis natürlich einfacher zu führen, s. PdN-Ph. 4/82. [7] 
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Man unterscheidet bei diesem Verfahren noch die beiden Varianten Gesamtschrittverfahren 
und Einzelschrittverfahren. 


Ersteres haben wir oben angewandt; es ist dadurch gekennzeichnet, daß ein Wertetripel in 
die rechten Seiten der 3 (n) Gleichungen eingesetzt wird, während bei letzterem das neue 
x aus der ersten Gleichung bereits in der rechten Seite der zweiten Gleichung verwertet 
wird und zusammen mit dem neuen y aus der zweiten Gleichung auch in der rechten Seite 
der dritten Gleichung usw. 


Im folgenden Ablaufplan ist das Gesamtschrittverfahren dargestellt; denkt man sich die 
Hochkommata und die letzten Zuweisungen weg, so hat man das Einzelschrittverfahren vor 
sich. 


b) Allgemeiner Ablaufplan 


Eingabe von a,,bı,Cı,dı, 2, ba, Ca, da, a3, ba, Ca, da 
Wiederhole | x’ = 1/a, '(d, -bıy -cız); Ausgabe von x’ 
y’« 1/b} :(d2-a2x -c2z); Ausgabe von y’ 
z = 1/c3 (d3-a3x -b3y); Ausgabe von z 
xex;yey 
bis Abbruch sinnvoll 


c) BASIC-Version 
18 rem *%*% iteration v. al.systeren 3%% 


z8 prirt"BEl Wieviel Nachkommastellen" :gosuk 178 :n=val(aw$) 
25 if aw$sc'"B" or aws>"?7" then 28 

386 print" Sdesamt- oder E)inzelschritt":gyosub 178 

35 if awsc)"g" and aw$c>'"e" then 30 

48 m=int(18tn+.1) :d=.11/m:k=B:print 

45 input" ail,bi,c1,d1";a1,bi1,co1,di 

>S8 ineut'" a2,b2,c02,d2";32,b2,c2,d2 

>55 input" 33,63,c3,d3";a3,b3,c03,d3 

868 print:if aw$='"g'" then 110 


8 rem #%% einzelschritt-iteration 3%% 
75 hx=x:x=17/31%(d1-biky-ci1%#z) 

88 hysy:y=1rb2%(ld2-a2kx-c2%kz) 

85 hz=z:z=1/03%(d3-a3kx-bI3%y) 

98 gosub 198: if buv=-i1 then 75 

95 goato 148 


185 rem **% gesamtschritt-iteration 3%% 

118 hx=1/al%k(di-biky-ci4z) 

115 hy=1/b2%(d2-a2*x-c24z) 

1298 hz=1/c3%(d43-a3kx-bI3%ky) 

125 gosub 199 :x=hx :yshy:zsehz:if bu=-1 then 118 


135 rem *%% endausgabe xr% 

148 k$=str$cCk) :k$=emid$ck$,2, lenckP-1) 

145 w=x:gosub 218 :x=w:w=y:gyosub 218 :y=w:wrz :Jyosub 219: zw 
158 print" x'k$" ="x:print" y"'k$" ="y:print" z'k$" ="z 
155 end 
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165 rem *%% warteschleife r% 
176 get aw$:if aw$="" then 178 

175 return 

1808 : 

185 rem 33% konvergenzpruefung Ex% 


4198 bu=(abs(tx-hx)>>=d or abs(y-hy’>=d or abs (z-hz’>=d) :k=kt+ti1 
195 return 

208 : | 

205 rem #%% rundung der ausgabe “u% 

2148 w=ewim:if w-int(w>=.5 then w=int(w? +1 

21415 w=int (w/m 

228 return 


Erläuterungen: Die Zuweisungen auf hx, hy, hz waren — auch im Falle des Einzelschnitt- 
verfahrens — nötig, um die Abbruchsbedingung in Z.190 zu ermöglichen. Dort befindet 
sich eine Art Boolsche Variable?) bv, der der Wert — 1 oder O zugewiesen wird, je nachdem, 
ob der eingeklammerte Bedingungskomplex erfüllt ist oder nicht. Dies hat den Vorteil, daß 
man im Hauptprogramm mehrfach in Abhängigkeit der Belegung von bv reagieren kann, 
vgl. Z.90 und Z.125. 


Man hätte durch zusätzliche Abfragen die beiden Iterationsblöcke integrieren können. Dies 
unterblieb jedoch, um Zeit innerhalb der Schleife zu sparen! Aus dem gleichen Grund 
wurde darauf verzichtet, eine Austrittsbedingung für den Fall der Divergenz zu installieren. 
Eine Verallgemeinerung des Verfahrens auf n Gleichungen mit n Variablen,n@ IN, findet 
der Leser in Kap. 10. 


d) Testbeispiele 


Nach Eingabe der Daten des Einführungsbeispiels und der Forderung nach sieben Dezima- 
len sowie Gesamtschnitt- bzw. Einzelschrittverfahren erscheint: 


X5 1 % 7 1 
Y;=-2 bzw. ye=-2 
zZ, =3 Z6 7 3 


Neues Beispiel (drei Dezimalen): 


Bbx+3y-2z= 9 
x+t7/y+t2z= 9 


(E) x11 =—-?2 (G) X19”= 2 
yıı7 3 Yo” 3 
211707 Zig #5 


5) George Boole, 1815-1864 (einer der Begründer der formalen Logik) 
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Daß das o.a. Zeilensummekriterium nur hinreichend, aber nicht notwendig ist, zeigt unser 
nächstes Beispiel (sieben Dezimalen): 
2x- y- z=-6 
x+t3y+2z=-1 
3xt+t4x+3z= 1 


(E) Xx105 7 2 (G) Xısg ” 2 
Yıos ”* 10,9999999 Yısg = 0.9999999 
2105 = - 2.9999999 2109 = - 2.9999999 


Hier muß man etwas Geduld aufbringen (11s bzw. 21s). 
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7 Differentialrechnung 


7.1 Folgen und Reihen 


7.1.1 Rekursive Folgen 

Ist der Folgenterm bekannt wie z.B. bei a, = \/n oder an = (1 + 1/n)", lohnt sich eine 
Programmierung nur, wenn man eine größere Anzahl von Gliedern bestimmen will; inter- 
essanter wird der Einsatz des C-64 bei rekursiv definierten Folgen wie z.B. 

a) =3&, = 1:n>3: a, = a,_ı + an-2 (Fibonacci-Folge); 

die ersten Zahlen lauten 1,1,2,3,5,8,13,21,34,55,89,144,233,377,610, 

987 ,1597 ....,7778742049..... 

Die zugehörige Quotientenfolge q, := an/an -ı liefert mit wachsendem n in der Anzeige 
die Zahl 1,618033989 als Näherungswert von 1 + 5/2, dem philosophiegeschichtlich 
bedeutsamen Goldenen Schnitt. 

Auch zur Fibonaccifolge selbst gibt es interessante Querverbindungen, wie beispielsweise 
die bekannte ‚‚Flächenverwandlung” aus der Unterhaltungsmathematik 





(aus dem 64 cm?-Quadrat wird ein 65 cm?-,‚Rechteck”). 


Wenn man als Quadratseitenlänge nämlich eine Zahl mit geradem Index nimmt (als 
Rechteckseitenlängen dienen dann Vorgänger und Nachfolger), kann man das Rätsel 
auch analytisch schnell klären (siehe Anhang). 


Die Quotientenfolge zu den beiden rekursiv definierten Folgen 
412-2 und b+1=b41'2.;0n22; 

strebt mit wachsendem n gegen Yz, wenn aı 23 undb;, 21 der Beziehung 
a?-b?-z=4 (Pellsche Gleichung) 

genügt. 


Fürz=2,a, =6 undb;, = 4 erhält man z.B. die Quotientenfolge 1, 5; 1,416666667; 
1,414215686; 1,414213562; ... 
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Die zugehörigen Programme erfordern nur wenige Schritte und bieten keine Schwierig- 
keiten. Die Fibonaccifolge erhält man z.B. mit den BASIC-Zeilen 


10 A=-1:EB=1:REM *#* FIBONACCI #%#* 
20 C=A+B:FRINT C:A=B:B=C:60T0 20 
7.1.2 Experimentelle Epsilontik 
a) Mathematischer Hintergrund 


Die Konvergenz einer Folge läßt sich so definieren: 


Eine Folge mit dem Term a,,nEN, besitzt die Zahl g R als Grenzwert genau dann, 
wenn sich zu jedem e € R* einn„ EN finden läßt, so daß 


lan -gl< ee fürallen>ng. (1) 


In Anlehnung an diese Definition wird oft verlangt, bei bekanntem g zu vorgegebenem e 
das no zu bestimmen. Man erhält no in der Regel durch eine Kette äquivalenter Umformun- 
gen von (1). 


Wenn man in der obengenannten Definition (1) durch die Beziehung 
lan am!<e fürallen>n, und m>ng (2) 


ersetzt, so hat man das gleichwertige Cauchysche Folgenkriterium vor sich. 


Es wird ein Programm vorgestellt, das unter Ausnutzung von (2) g approximiert und gemäß 
(1) zu geg. qg und e das entsprechende n. berechnet. 


b) BASIC-Programm 


18 rem 3% no zu 9 und eps bestimmen K%% 
15 deffn a(ln)=(n+3)7 (2%n-1) 


28 print'BE GSrenzwert bekannt 7"; 
25 gosub 78:if aw$="n" then gosub 98 :goto 35 


38 input" 9a = ";9 
35 input" Epsilon >= 8.08Bi ";eps:n=i 
36 : 


48 n=24n:if abs(fnaln)-y)> >=eps then 48 
45 b=n:a=n72 

s8 n=(a+tb)/Z2:if b-a=1 then 65 

55 if abs(fna(n?-g>)>=eps thena=n:g0oto5B 
68 b=n:goto 58 


65 print'E Epsilon =";eps" no =";b:gosub 79:90t0o 28 
66 : 

79a rem *x%% warteschleife x*x% 

75 get aw$:if aw$="" then 75 

886 return 

81 : 

85 rem *#% grenzwert ermitteln r% 

98 ni=2 


95 ni1=24n1 :n2=2%n1 :n3e2ıkn2 

1988 di=abs(fna (ni) -fna(n2)) :d2=abs(fnaln2)-fnain3)) 

185 if d2 < di and n3 < 1eAß then 95 

118 9=fna (n2) :g=tint(gäle5) +5)718:g=int(tg)/ile4:print!" g =";g 
115 return 
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Erläuterungen: 


Il. Zur Ermittlung des (vorausgesetzten) Grenzwertes wird die Differenz in (2) für ausge- 
wählte n, m mehrfach errechnet. Theoretisch müßte sie mit wachsenden Indizes immer klei- 
ner werden. Praktisch werden die beiden Folgenterme oft wegen der maschinellen Abbruch- 
fehler — in Abhängigkeit der jeweiligen Folge a, — schließlich wieder ungenauer. In Z.105 
wird dies erkannt; für die. Folgen, bei denen dieser Effekt nicht auftritt, vermeidet die 
zweite Abfrage einen Overflow. (Die Konstante 10° bewirkt, daß die Null in der Regel 
durch ein Intervall der Größenordnung |- 10°, 10°] ersetzt wird. Außerdem kann noch 
quadriert werden!) Um keine unangemessene Genauigkeit vorzutäuschen, wird g anschlie- 
ßend auf vier Dezimalen gerundet. (Die angegebenen Werte passen zu den später gezeigten 
Beispielen; für andere Folgen müssen sie ggf. geändert werden.) 


Il. Bei der ny-Bestimmung wirken sich die Maschinenfehler noch stärker aus. Wenn man 
wirklich das minimale n.g herausfinden will, dürfen z.B. bei den Berechnungen gemäß 
Z.15 nicht gerundete Gleitpunktzahlen entstehen, was beim Multiplizieren leicht geschehen 
kann. Auch bei der Quotientenbildung sind Fehler in der achten oder gar siebten Dezimale 
keine Seltenheit. 

Fazit: Man wähle i.d. Regel e nicht unter 10”*: (Auch dann gibt es noch keine allgemeine 
Garantie für ein exaktes no, siehe Testbeispiele.) 

Der Algorithmus zur Ermittlung von no ist Z.40--60 zu entnehmen. Zuerst wird diejenige 
Platznummer in Form vonn=2*,kEN bestimmt, bei der erstmals die Beziehung (1) er- 
füllt ist. Anschließend wird über dem Ausgangsintervall [2*"', 2*] durch fortgesetztes 
Halbieren das minimale n. gewonnen — falls die a(n) hinreichend exakt berechnet wurden! 


c) Testbeispiele 





+3 | 
1) a, = > — (Wert korrekt) 
1 
2) a, = my (Wert korrekt) 
n+tyn’+1 

3) a. 1 (Wert für ng um ‚1' zu gering; 

N Yn Abhilfe durch Konstante ,‚d‘) 

(Wert für e = 10° richtig 
4 =. ‚ 
) an=Vn Wert für € = 10”* falsch) 
_ 1\n (Zu e = 10°? erhält man bei Vergabe des genaueren Wertes für 

5) a„.= (1+ 


‚g’ das richtige ng. Zu 10° gehörte jedoch 1359) 


Anmerkung: Die Schwierigkeiten von 4) und 5) resultieren aus der langsamen Konvergenz 
der Folgen! 
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1) 


2) 


3) 


4) 


15 deffn aln)=(n+3)> 7 (2%n-1) 
Grenzwert bekannt ? gg = „5 
Eprsilon >= 8.0081 ? 8.0061 


Epsilon = 1le-84 no = 17561 


15 deffn atn)=17/ (ntsar (cnikn+1)) 


Grenzwert bekannt 7” 9a = 8 
Ersilon >= 8.080081 ? „08081 


Ersilon = i1e-84 no = 5808 


15 deffn a(n)=1/sar (n) 
Srenzwert bekannt ?” gg = 8 
Epsilon >= 8.0081 ? „08881 


Eprsilon = 1e-B8B4 no = 1890088088 


15 deffn a(n)sei/sar(n) +d 
35 input" Epsilon >= 8.8881 ";eps:n=1: 
dzepsk5e-9 


Grenzwert bekannt ?” qq = 8 
Ersilon >= 8.0001 ? .B801 


Epsilon = ile-54 no = 180099890961 


15 deffn a(n)sent(17/n) 
Grenzwert bekannt ? 9 = 1 
Epsilon >= 8.0801 ? .B681 


Ersilon = i1e-83 no = 9124 
Epsilon >= 8.0081 ? 8.0061 


Ersilon = i1e-84 no = 116678 
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5) 45 deffn atm)=(1+1/n? tn 


Grenzwert bekannt ? 9 = 2.7183 
Eprsilon >= 8.8001 ? .61 


Eersilon = .Bi no = 136 


Grenzwert bekannt ? a = ? 2.718281928 
Epsilon >= 8.0861 ? .91 


Epsilon = .Bi no = 135 


Grenzwert bekannt ? 9a = ? 2.718281828 
Epsilon >= 8.0861 ? .B61 


Epsilon = 1e-83 no = 1357 


7.1.3 Der Reinfall mit der harmonischen Reihe 


Auch bei praktischen Konvergenzuntersuchungen von Reihen gibt der Rechner oft Hin- 
weise auf den vorhandenen Grenzwert: 
1.1.1 71 1 1 


+ -+ tt tt... 
I+5+2t9 anatt (geometrische Reihe) 


liefert mit den ersten 29 Summanden eine „2 in der Anzeige des C-64 


10 1=0:5=1:REM ** GEOMETRISCHE REIHE *% 
20 I=I+t:FRINT 1,5:5=$5+1/2”1:60T0 20 


Die harmonische Reihe 


mahnt indes zur Vorsicht; sie divergiert ja ins Unendliche, was einem der Computer aber 
nicht verrät, denn die ersten Tausend Glieder summieren sich erst zu 7,48547086; mit 
12700 Gliedern ist man erst bei 10 (9.787606). Hierfür sind nicht etwa maschinelle 
Abbruchfehler verantwortlich, denn die Fehler bei der Kehrwertbildung und anschließen- 
der Addition liegen in der Größenordnung 10”° und können sich im ungünstigsten Fall zu 
10°? mal 10° gleich 10°° addieren (bei rund 10000 Summanden)! Das „Versagen“ des 
Computers ist vielmehr eine Folge der schwachen Divergenz der harmonischen Reihe in 
Verbindung mit der Beschränkung auf 8 signifikante Stellen im Rechenwerk: die Glieder 
mit einem Index jenseits von 10°® werden bei der Addition nicht mehr berücksichtigt! 
Gerade dieser noch folgende ‚unendliche Rest‘ ist aber maßgebend, denn die ersten 10'° 
Summanden bringen nur rund „23°, wie man aufgrund der Beziehung 


11 1, 1101 1 
lim |I+<+<+-+-+-+- = = 
im. ( 3'7 Brer7t-*n nn) C 
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erkennt, wobei die Zulersche Konstante C den Näherungswert 0,577216 hat. (Umgekehrt 
kann man auch C mit der harmonischen Reihe approximieren; für n = 1000 ergibt sich 


7,4854708 - In 1000 = 7,4854708 - 6,9077553 = 0,5777158. 


Es ist übrigens noch nicht entschieden, ob C irrational ist.) 


Sinnvoll wird der Einsatz eines Computers vor allem dann sein, wenn die Existenz des 
Grenzwertes schon bewiesen wurde, aber der tatsächliche Wert lästig zu berechnen wäre 
und andererseits die Konvergenz nicht zu schwach ist — sonst hat man wieder die gerade 
erörterte Situation! 


Beispiel: 


ke 
2 (k})? 
Kai 





Der Rechner brachte die Näherung 3,54812823; man beachte bei der Programmerstellung 
den jeweiligen Overflow beik“,k >26 und k!,k >33 bzw. (k!)*,k > 20 


10 REM *%** WERT EINER REIHE *%%* 
11 : 

15 FOR K=1 TO 26 

20 GOSUB 40: 59=5+(K”K) /F/F 

25 NEXT K 

SO FRINT"S=";,S 

25 END 

36 : 

40 REM *** UNTERFPROGRAMM FAKULTAET #** 
45 F=1:FOR I=1 TO K:F=F*I:NEXT I 

SO RETURN 


7.2 Numerische Differentiation 


Die punktuelle Bestimmung der Ableitung einer Funktion f an der Stelle x, durch den 
Term 


f(xo+thl-f(xo-h 
2h 


macht programmiertechnisch keine Schwierigkeiten und kann mit wenigen Schritten 
realisiert werden. Der wiedergegebene Ausdruck für die Ableitung der Tangensfunktion 
an der Stelle 1 zeigt indes, daß wir mit einer ungünstigen Fehlerfortplanzung rechnen 
müssen und die Ableitung offenbar empfindlich auf Änderungen des Funktionsverlaufs 
reagiert. 


18 rem *%%* numerische differentiation %*%% 


15 deffnf(x)=xtr7 42 t1(x7/12)*sin(x)isinex) 
2B ineut'BZi x0,h";x,h:print 

25 abl=(fn ft(tx+h)-fn fix-h)3)7(2%h) 

38 print" F’C";x;'") =";abl 
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0,1 3,5230072 
0,01 3,42646413 
0,001 3,42552853 
0,0001 3,42551444 
0,00001 3,42554413 
0,000001 3,42528801 
0,0000001 3,425 
0,00000001 3,3993274 
0,000000001 3,25962901 
0,0000000001 0 


Zum Vergleich: 





tan’(1) = = 3,425518821 


cos” (1) 


Zweckmäßig wählt man h = 10° oder h = 10°*, was auch von dem folgenden Funktions- 
beispiel bestätigt wird: 


f(x)=x’- 2x. sin?x 


deren Ableitung an der Stelle 2 rund 313,9061836 beträgt, wie man über den Ableitungs- 


term 
' _ ,7,.12 ein2n. 7 2°-In2 , 
t(x)=x 2° - sin”x 2.22 +2°cotx 


errechnen kann; bei h = 10 -* ergibt sich mit 313,906213 der beste Näherungswert. In 
etwas abgewandelter Form spielt die numerische Differentiation auch bei Iterations- 
verfahren eine Rolle, s. 7.4.2 


7.3 Lokale Extrema 

a) Problemstellung 

Ein Stromversorgungsgerät hat unbelastet eine Spannung von 230 V und besitzt einen 
Innenwiderstand von 8 22. 


Frage: Welchen Widerstand muß ein angeschlossenes Gerät aufweisen, wenn die aufzu- 
nehmende Leistung maximal werden soll (‚‚Leistungsanpassung‘’)? 

Lösung: Die Stromstärke I ergibt sich als Quotient von Urspannung Uonund Summe von 
Innen- und Außenwiderstand R;, und R,; maßgebend für die aufgenommene Leistung ist 
die sogenannte Klemmenspannung, die durch das Produkt | : R, ausgedrückt werden kann. 


Somit erhält man durch 
P=Uxo'1=1?-R Vs 
= KR a (R, + R,)? 


die Leistung als Funktion des gesuchten Widerstands R,. 
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Die Funktion mit 


230° 


f = 
(x) (Br? 


wird offenbar für kleine x wegen des zweiten Faktors und für große x wegen des (quadra- 
tischen!) Nenners geringe Werte annehmen, so daß man mit Recht dazwischen eine Bele- 
gung von x mit zugehörigem maximalen f(x) erwarten darf. 


Diese Zahl x, soll nun vom Computer nach einem einfachen Suchverfahren bestimmt 


werden: 


f(x) 


b) Allgemeiner Ablaufplan 






Eingabe 
von 
x und h 
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Erläuterungen zum Flußdiagramm: 


Der Ablauf setzt die Situation voraus, die soeben skizziert wurde, außerdem muß der 
Startwert x links vom Maximum liegen. Die Schrittweite h sollte nicht zu klein gewählt 
werden, damit man schnell über xo hinauskommt; anschließend wird erstmals der Ja-Fall 
ausgeführt, d.h. die Schrittweite wird auf den zehnten Teil verringert und durch den 
Vorzeichenwechsel werden die x-Werte wieder kleiner. Dadurch werden die Funktions- 
werte wieder größer, bis xo nach links unterschritten wird und die Abfrage abermals über 
die Ja-Weiche verlassen wird, so daß anschließend mit 1/100 der ursprünglich angesetzten 
Schrittweite alles wieder nach rechts fortschreitet usw. 


c) BASIC-Übersetzung 


10 REM #** LOKALE EXTREMA *r% 
il: 
15 REM *x** VORBEREITUNGEN *%% 


20 DEFFN F (X) =230*2/ (B+X) *2%X 
25 INFUT"EI +-,X,H"3A#,X,H 


50 Z=1000:D=-1E-4:5=-1E38:VZ=1:IF A$="-" THEN VZ=-1 
ES 
25 REM *%%* ITERATION ER 


40 Y=VZ*FN F(X) 
45 IF YX=5 THEN H=-H/10 
so IF ABS(H) >=D THEN X=X+H:5=-Y:60T0 40 


31: 

55 REM *###* ENDAUSGABE *r% 

#0 W=X:6505UB 70: FRINT'"'W XD = "sWeW=Y:IF Af="-" THEN W=-Y 
&5 GOSUB 70:FRINT" F(X0O) = "sW:END 

66 ı 

70 REM ##%* RUNDEN #R% 


75 W=W*Z: IF W-INT (WI >=.STHEN W=INT (W) +1 
80 W=INT (W) /Z: RETURN 


Anmerkungen: 


Lokale Minima sind mit einbezogen, indem ggf. der Funktionsterm mit ‚— 1’ multipliziert 
wird. (Spiegelung des Graphen an der X-Achse!) Bei der Eingabe signalisiert man ein Maxi- 
mum (Minimum) durch + (-). Der Speicher D steuert den Schleifenausstieg und bewirkt 
zusammen mit Z eine sinnvolle Rundung der Endausgabe. (Es bringt i.d. Regel nichts, D 
mit einer kleineren Zahl zu belegen, weil sich bei weiterer Verkleinerung von H benach- 
barte Funktionswerte nicht mehr unterscheiden!) 


d) Testbeispiele 

1. Der optimale Widerstand beträgt 8 $2, man kann so empirisch die Gesetzmäßigkeit 
R; = R, herausfinden! 

2. Noch ein physikalisches Problem: 
Auf einer Bundesstraße hat sich vor einem verengten Fahrstreifen ein größerer Stau 
gebildet. 
Frage: Mit welcher Geschwindigkeit sollte die Kolonne den Fahrstreifen durchfahren, 
damit sich die Stauung möglichst schnell wieder auflöst? 
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Man kann nicht einfach antworten: „Mit möglichst großer Geschwindigkeit‘, weil in 
der Kolonne ein geschwindigkeitsabhängiger Sicherheitsabstand eingehalten werden 
muß! 

Ein möglicher Ansatz ergibt sich aus folgenden Überlegungen: 

Der Stau löst sich um so schneller auf, je schneller der Durchfluß im Engpaß ist, d.h. 
je größer die Anzahl der Autos ist, die diesen an einer bestimmten Stelle P in der 

Zeiteinheit passiert. 





I] [I LI [LI [OD LI BEE [J LT 
II LI CI LI Al 
ILILI LI 


ns) 


Anders ausgedrückt: Die Zeit At, mit der zwei Autos bei P einander folgen, muß mini- 
mal werden. Nun gilt 


_ d _d 
v=77 bzw. At=, 


wenn v die Geschwindigkeit der Kolonne und d der Abstand zwischen den Autos ist. 
Letzterer ist gleich dem Bremsweg s = +vt(t= „Schrecksekunde‘‘), zuzüglich 


einer Strecke von etwa 8 m, denn auch bei einem vorübergehenden Stillstand (v = 0) 
müssen die Wagen ja einen Abstand voneinander haben (Eigenlänge berücksichtigen, 
vgl. Skizze). Wir erhalten somit 

1v? 1v 8 
d=_—-+tvtt8 und t=_ -t+ttt, 

2a 2a V 
Wir unterstellen eine Verzögerung vna=6ms 
und erhalten eine Funktion mit 


2 und eine „Schreckzeit”’vont=1s 


1 8 
= —xy+t-+ 
f(x) 17 X x 1 


deren Werte für große x wegen des ersten Summanden und für kleine x wegen des 
zweiten Summanden hoch werden, so daß man dazwischen ein lokales Minimum 
vermuten darf. 

Mit den Startwerten x = h = 1 erscheint in der Anzeige 9.798. 

Aus der Differentialrechnung ergibt sich /96 = 9,797959 oder 35,3 km/Std. 


3. Eine klassische Extremwertaufgabe: 
Die beiden Punkte A und B mögen von einer Geraden die Abstände c und d haben 
und dadurch eine Strecke s auf der Geraden auszeichnen. Man soll nun jenen Punkt P 
der Geraden bestimmen, der den Streckenzug APB = a + b minimal werden läßt. 
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A 





Unsere Lösung, demonstriert am Beispiele=2,d = 3,5s=8 
fix)=atb=vVc?’+x? +ı/(s- x)? +d? 
f(x) =vV4rx? + (8 - x)? +9 


Es ergibt sich 3,2. (Man vergleiche den beschwerlichen Weg in der Analysis, aber auch 
die einfache geometrische Lösung (Spiegelprinzip).) 


4. Ein kaufmännisches Problem: 


Von einer Zahnpasta werden bei einem Preis von 1,20 DM pro Stück 20 000 Stück im 
Monat verkauft. Marktforscher haben für den Hersteller herausgefunden, daß eine Preis- 
senkung von 5, 10, 15 Pf. ... pro Stück den Umsatz um 1200, 2400, 3600 Stück usw. 
erhöhen würde. 


Um wieviel Stufen zu je 5 Pf. soll man den Preis erniedrigen, wenn der Erlös maximal 
werden soll? 


Man programmiert in Zeile 150 die Funktion mit 
f(x) = (1,2 -x 0,05) - (20000 + x : 1200) 


und erhält x = 3,67 (gerundet) zum Ergebnis; demnach sollte man auf 1,05 DM oder 
1 DM ermäßigen. 


7.4 Näherungsweise Bestimmung von Nullstellen 


7.4.1 Newtonverfahren 


a) Problemstellung 

Gegenstand des Verfahrens ist die Lösung einer Gleichung des Typs f(x) = 0. 

Die Tangente durch P, an den Graphen von f schneidet die Abzisse in x, ; die Tangente 
durch P, an die Kurve schneidet die x-Achse in x, usw.; im skizzierten Fall nähert sich 
die Folge xo , Xı, X, ... der Nullstelle E von f. Andererseits besteht der Zusammenhang 


f(xo) , f(x}) 


Flo) ey; Fl) nz, 


X0o 7 Xı 
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usw.; allgemein 


f(xn) 
Fon) = Xn Xn+i1 
oder 

f(x.) 


Xn+1 Tem =0,1,2, ... 
n 
(siehe Anhang). 


Wie schon aus der Skizze hervorgeht, 
konvergiert das Newtonverfahren 
schneller als das allgemeine Iterations- 
verfahren, vgl. 6.2, dafür benötigt man 
aber die Ableitung an den Stellen 
Xn,n=0,1,2,... 





b) Allgemeiner Ablaufplan 
Anfang des Programms 


Eingabe des Startwertes x und der Genauigkeit d 
k 0 (Zähler) 
Wiederhole | k*-k+1 


Sex 
f (x) und f’(x) im U.P. berechnen 
f(x) 
ne — — 
xx x) 
bis \x-sl<d 
Ausgabe von k und x 
Ende des Programms 
c) BASIC-Übersetzung 
10 REM **%* NEWTONVERFAHREN *r%* 


11 : 

15 DEFFN Fe(X)=X#X+r2%*X-CDOS (X) 

20 DEFFN Fi(X)=2#X+2 +5IN(X) 

21: 

25 INFUT'I STARTWERT XO "X 

50 INFUT" DEZIMALEN (BIS 7)"sN: Z=INT (10”N+.1):D=.11/Z:K=0 
si : 

35 K=k+1:5=X 

a0 X=X-FNF(X)/FNFILCK) 

45 IF ABS(X-S) =D THEN 35 

46 : 

SO X=X#Z2:IF X-INT(X)>=.5THEN X=INT (X) +1 
35 X=INT(X)/Z:HF=STRFE(K) 

60 FRINT"B X"MIDFCHF,2,LEN(CHF) - 1)" ="X 
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Anmerkung: 


Zur Anpassung der Ausgabe an die vorzugebende Genauigkeit vgl. 1.2.4 und zur Ausgabe 
selbst 6.2. 


d) Testbeispiele (N = 7) 


1. x? +2x- cosx = 0; x0 = 0: x; = 0,3877221 
2. x’ -Inx-3=0:xo = 1:x6 = 1,9096976 
xo = 0D,1;x& = 0,0499112 
3. x?+2x°-23x?+2x+1 = 0;%o = 1:x7 = 0,2605184 
4. x - sinx- 7/6 = O;xo = T7;Xa = 3,4049082 


7.4.2 Sekantenverfahren (regula falsi) 
a) Problemstellung 


Grundgedanke des Verfahrens: Anstelle der Ableitung im Newtonverfahren nimmt man 
einen Differenzenquotienten; das bedeutet zwei Startwerte x), X, und den Austausch von 
vier Speicherinhalten, wenn man innerhalb der Schleife nur einen Funktionswert neu 
berechnen will. 


b) Allgemeiner Ablaufplan 


Anfang des Programms 
Eingabe X,},x%., d (Genauigkeit) 


k 0; f(x}) und f(x2) im Unterprogramm (U. P.) berechnen und nach y,} und y» abspei- 
chern 


Wiederhole \k*-kK +1 
X27Xı 
x ER Ty=-yı "Ya 
f(x3) im U.P. berechnen und nach y3 abspeichern 
x "X2,X2 7 X3, Yı CT Ya; Ya © Ya 
bis Ix, x, I<d 





Ausgabe k;x3 
Ende des Programms 


Anmerkung: 

Beim 2. Durchgang übernehmen x, und x3 die Rolle von x, und x; ; entsprechendes wie- 
derholt sich in den folgenden Durchgängen; im Nenner kommt es gelegentlich zur Aus- 
löschung der signifikanten Stellen (sog. Subtraktionskatastrophe). 
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c) BASIC-Übersetzung 


10 REM *** SEHANTENVERFAÄHREN “RR 
11 : 

15 DEFFN F(X)=X#X+2%X-CD5 (X) 

16 : 


20 INFUT"KM STARTWERTE X1,X2 "3X1,X2 

25 INPUT" DEZIMALEN (BIS 7)"3Ns: Z=INT (10”N+.1):D=.11/Z:K=0 
26 : 

30 Yi=FN F(X1):Y2=FN F(X2) 

55 K=K+l 

40 X3=X2- (XE-X1) /(Y2-Y1)#V2 

45 YS=FN F(X2) 

SO X1=-X2: X2=X3: Y1=Y2: Y2=YS 

55 IF ABS(X2-X1)>=D THEN 30 : 

36 : 

60 X=X3:X=Xr+Z: IF X-INT(X) >=.5 THEN X=INT(XI)+1 
65 X=INT (X) /Z:ıHF=STRFE(K) 

70 FRINT"R X"MIDFCHF,2,LEN(CHF) - 1)" ="X 


d) Testbeispiele (wie 7.4.1,N=7) 


Beispiel k 
1 6 
2 5 
2 8 
3 11 
4 5 





7.5 Kurvendiskussionen 


a) Mathematischer Hintergrund 


In den Analysiskursen der Gymnasien werden die Kriterien der Kurvendiskussion üblicher- 
weise an ganzrationalen Funktionen dritten und vierten Grades erarbeitet. 


Das folgende Programm ist darauf abgestellt und ermittelt nach Eingabe der Koeffizienten 
automatisch | 


— sämtliche Nullstellen der Funktion 

— die ersten beiden Ableitungen 

— die Koordinaten von Hoch-, Tief- und Wendepunkten 

— Intervalle gleichen Monotonie- und Krümmungsverhaltens 
— das bestimmte Integral nach Eingabe der Grenzen a und b 


Hier die Strategie für den Fall 

f(x) = 20%” + 24x + ax” +asxtay 
mit den beiden Ableitungen 

f’ (x) = 4aox“ + 3a7x? + 2aox + az 
f" (x) = 12a0x + 6aıx + 2a, 


Voraussetzung: ao > O (sonst Übergang zu -f) 
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Zunächst ermitteln wir eine Nullstelle x; der 1. Ableitung (als Funktion 3. Grades hat 
f' mindestens eine!) mit der Methode der fortgesetzten Halbierung, vgl. 6.1.2. 

Dann dividieren wir den Funktionsterm von f durch x —-x, und erhalten einen quadrati- 
schen Rest, dessen zugehörige Gleichung normiert und nach der p, q-Formel gelöst wird 
und ggf. für f’ zwei weitere Nullstellen x» und x3 liefert. 

Wir errechnen die zugehörigen Funktionswerte f(x;), i@{1, 2,3} und haben drei Fälle zu 
berücksichtigen: 


| Alle f(x,) sind größer Null. 


Dies bedeutet, daß alle Tiefpunkte von f oberhalb der x-Achse liegen und somit f keine 
Nullstellen hat. 


II Esgibteinx;mit f(x,) <O. 

Nun bestimmen wir, wieder durch fortgesetztes Halbieren, zwei Nullstellen n, und n> über 
[x;, + ©] und [- &, x;]. Nach Division von f durch (n - n,) (n —n>) ergibt sich wieder ein 
quadratischer Rest, der wie oben behandelt bis zu zwei weitere Nullstellen von f bringen 
kann. 

III Esgibt x; mit f(x,) =0. 

Wir müssen lediglich dafür sorgen, daß diese x; als Nullstellen konserviert und später mit 
angezeigt werden. 

Anschließend werten wir die x; zur Bestimmung der Extremwerte aus, indem wir zu jedem 
einzelnen x; prüfen, ob f’ beim Durchgang durch x; das Vorzeichen wechselt. 

Ähnlich finden wir Wendepunkte durch Nullsetzen von f" und Prüfung auf Vorzeichen- 
wechsel. 

Aus den Nullstellen von f' und f” lassen sich dann Monotonie- und Krümmungsintervalle 
von f ablesen (f'>0 (<0) bedeutet monotones Steigen (Fallen) von f;f’ >O0(<O0) Links- 
(rechts)krümmung von f). 

Zur Integration verwenden wir 8.1 als Unterprogramm. 

Die Behandlung der Funktionen dritten Grades verläuft einfacher (auch hier wollen wir 
ao >O voraussetzen). Die bis zu drei Nullstellen von f erhalten wir nach dem eingangs für 
f' geschilderten Verfahren, die Extrema über die Auswertung eines quadratischen Terms 
und die Koordinaten des — stets existierenden — Wendepunktes aus einer linearen Glei- 
chung. 


b) BASIC-Programm 


18 rem X%% kurvendiskussion x%% 


14 deffn fFix)=a(d) Ixix ix ixta (1) ix ir ir ta (2) ir ta (3) ix ta 4) 
16 deffn fi(x2)=a(8) KI4kxkxixta l1) Kir dx ta (DI) EEK ta C3) 

18 deffn fFZ(x)=a(B) K124xHx ta (1) HH Kx +3 (27 2 +3 (3) 

28 deffn g(x)=3 (0) Ixtxixta (1) Kkxixta (2) ixt+a (3) 

22 deffn gi(x)=a(ld) 3x x ta l1) K2kxtacl2) 

24 deffn g2(x)=a(B) Xbkxtal1) 2 

26 rz=1008:1z$=" “ 


38 goto 5B88:rem >>> menue 
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34 rem 4% einzelbausteine rk 


38 rem #3% up nullstellen 3.grades *%% 
48 deffnh(x)=akxrikxixtbixixtcäkxtd 


42 : 
44 rem 3% fortgesetze halkbierung *% 
46 1=-1:r=1 


45 for i=8 to n:x(i)=ieß:next i 

>s8 1=108%1:r=10%r 

s2 if fnhtl>#*fnh(r)>6 then 58 

s4 x=(1l+r)72:if fnh(x)>6 then r=x:goto 58 
56 1l=x 

s8 if r-1l>=ie-8 then 54 

868 x=(1+r)72:g0osub 474:x(1)=x 


62 : 

64 rem 3% eolynomdivision %% 
66 b=b+tailx:c=o+tbix 

68 : 


78 rem *%% loesung d.quadrat.gleich. %*% 

72 p=-.5%b/a:x=p:gosub 474 :p=x:q=pXkp-c/a:x=q4:gosub 474 :q=x 
74 if q£8 then 84 

76 if q=B then 82 

78 g=sar (q) :x(Z)=sp+tq:x=x(2) :gosub 474:x(2)=x 

88 x (I)=p-4:x=x(3) :gosub 474:x(3)=x:g0to 84 

82 x (Z)=p:x=x(2) :gosub 474:x(2)=x 

84 return 


88 rem 4% koeffizienteneingabe x“r% 

98 input" El n=";n:print:if n{c>4 and n(?d3 then print" 
92 for i=8 ton 

94 print" "+chr$(65+i)+"="; :input a(i) 

96 n(i)=ie8 

98 next i 

188 return 





ü'' :goto 98 


184 rem 3% nullstellen von f r% 
18& if n=4 then 126 


118 a=a(B) :b=a(1) :co=a (2) :d=a (3) :gosub4B 

112 gosub 468:print" Nullstellen:g!" 

114 for i=1 to 3 

116 if x<ci)<ie8 then x=x(i) :gosub 448:print" x ="x:print 
118 next i 

129 return 


124 rem %% nullstellen von f’ *% 
126 a=4%3(8) :b=3%4a (1) :0=2%a(2) :d=a(3) 
128 yosub 40: j=1 

138 z=x (1) :fz=fnf(z): if fz<-ie-8theni52 
132 if abs(fz)<=i1e-8 then n(j)=z:j=j+ti 
134 if x(2)=1e8 then 148 

136 z=x(2):fz=fnf(z): if fz<-1ie-8theni152 
138 if abs(fz)<=1e-8 then n(j)=z:j=j+t1 
148 if x(3)=1e8 then 208 

142 z=ex(3) :fz=fnf(z): if Fzl-i1e-8 then n(j?=z:j=jt1:goto 152 
144 if abs(fz)<(=1e-8Sthen n(j)>Z 

146 aöoto 288 
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158 
152 
154 
156 
158 
168 
162 
164 
166 
168 
178 
172 
174 
176 
178 
188 
182 
184 
186 
188 
198 
192 
194 
196 
198 
288 
2082 
284 
286 
288 
2108 
212 
214 
216 
218 
228 
222 
224 
226 
228 
238 
232 
234 
236 
238 
248 
242 
244 
246 
248 
258 
252 
254 
256 
258 
268 
262 


rem %% 
l=z-1:r=z 


if fnft1i»>*kfnfcr)>B8 then 1=1-5:90t0 154 
x»=(]+r)72:if fnf(x><B then r=x:goto 16B 


1=x 
if r-1D=1e-8 then 156 


x=(1l+r)72:n(j?’=x:j=Jj+t1 


rem %% 
l=z:r=z+1 


if fnft1l>%*fnftr)>>8 then r=er+5:goto 178 
x=(1+r)72:if fnf(x)>>B then r=x:goto 176 


l=x 


if r-1D>=1e-8 then 172 


x=(1+r)/72:n(jJ) 


rem *%% 
=-(n(1)+n(2)) 


p=a(1)7a(08)-t:qa=a(2)/3(B8)-s-tip 


rem 3% quadr 
x=q4:90sub 474: 
x=p:gosub 474: 


pP=-p/2:q=pip-q:x=qa:gosub 474:4=x 


if q£Bß then 20 
if q=8 then 28 


a=sar(q? :ntj>=p+tq:j=j+t1:n(lj?=p-qa:goto 288 


n(j>=p 


print" Nullstellen :E':flay=8:gosub468 


for i=1 to 4 


if nti><ie38 then x=n(i) :gosub 448:print" 


print:next ji 
if flaqg=8 then 
return 


rem X%% 1.u 
for i=B to 3:b 
for i=-8 to n-i 


=x:j=j+1 


polyunomdivision 


:s=n(1)#n(2) 


at. gl. loesen 


g=x 
P=x 


8 
4 


1.nst. :forta.halbieren 


2.nst. :fortg.halbieren 


*%* 


*% 


*% 


*% 


x 


print" Sind nicht vorhanden!" 


2. ableitung 


(i)=8B:next i 


r% 


b(ti)=ali)%kln-i) :c(li)=b(li)kcln-1-i) 
x=b(i) :gosub 448:b(li)=x:x=c(i) :gosub 4498:c(i)=x 


next i 
print'E f’(x) 
for i=B6 to n-i 


, 


if bti’Cdathenprint b(i)"x +t'"'n-1-i; 
if len(str$cb(i+1)))> 31-pos(1> then print:print" 


if b(i+1>Cdo t 
next i 

erint:print'e 
for i=8 to n-2 


hen print'"'+ 


F’’()="; 


. 
[ 


if cti>COd8öthenprint c(i)"x t'n-2-i; 
if len(str$(cti+ti1)))> 31-pos(2) then print:print" 


if cti+1 IOd8 t 
next i 
return 


rem #%% 


hen print"+ 


extremwerte 


. 
[ 


“r% 


"ix:flag=i 
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264 if n=3 then ew=8:g0oto 286 

266 : 

268 for i=1 to 3 

278 if x(i) >= 1e8 then 288 

272 x=fnf(x(i)) :gosub 440 :y=xX:x=x(i) :gosub 448:x(i)>=x 

274 uvl=fnfi1(x-.5) :ur=fnfi1(x+.5):if vläkurDB then x(Ci>=1e8:goto 288 
276 if vl>B then print" Hochpunkt (C'x"7"y'")":90to 288 

278 print" Tiefpunkt ('x"7"y")" 

288 print:next i 

282 goto 312 

284 : 

286 er=2%a(1)73(0)73:9q9=3(2)7a(0)7/3:p=-p/2:q=pikp-qa:xi1=1e8:x2=1ed 
288 x=q:gosub 474:94=x:if a{B then gyosub 2958 :90t0 312 

298 if q=B then x=p:gosub 4408 :h=x:x1=x :90osub 382:90t0 312 

292 q=sar (y) :x=p-q:gosub 445 :h=x:x1=x:gosub 382 

294 x=zp+tq:gosub 448 :h=x :x2=x:gosub 382:90t0 312 


296 rem %% up 1 *% 
298 print" Es gibt keine Extremwerte !"tew=si:return 
3088 rem *% up 2 *% 


382 x=fny2(x) :gosub 440 :vz=x:if uz=8 then gyosub 298:90t0 318 
384 x=fnach) :gosub 448 :y=x:x=h 

386 if vz<B then print" Hochpunkt [L'"x","y"J'":9g0oto 318 
388 print" Tiefpunkt L"x",'"y"]J" 

318 return:rem >>> up 2 

312 return 

314 : | 

316 rem #%% wendepunkte x% 

318 if n=3 then 358 

328 9goto 336 

322 : 

324 rem 3% up x*% 

326 x=fnf (x) :gosub 448 :y=x:x=h 

328 vl=fnf2(x-.5) :ur=fnf2(x+t.5)7 :bwe(uvl&kur<Q) 

338 if bw=-1 then print!" Wendepunkt ("x'"/Z"yD)E"':we=i 
332 return:rem >>> up 

334 : 

336 p=.5%a(1)73(0) :q=3(2)7a(8) 7/6 :wep=B 

338 p=-p/2:q=pkp-gq4:x=qa:gosub 449 :94=x 

3486 if q<cB then 678 

342 q=sar (gg) :x=p-q:gosub 448 :h=x :gosub 326 :x1=x 

344 x=p+tqa:gosub 4489 :h=x :gosub 326 :x2=%x 

346 if we=8 then print" Keine Wendepunkte vorhanden!" 
348 gyoto 354 

349 : 

358 x=-2%3(1>73(8)/76 :gosub 440 :x3=x:x=fng (x? :gosub 448 :y=x 
352 print'"E Wendepunkt: [L'"x3'","y'"J" 


354 return 

356 : 

358 rem 3%% kruemmungzmonotonie ur% 
368 if n=3 then 396 

362 


364 if we=8 then print" Linkskruemmung ueber yanz R!":9goto 372 
366 print'Egi| [L-00,'"x1'"1'"tab (24) '"Linkskruenmung" 

368 print" [L"x1","x2"J]"tab (24) "Rechtskruenmung" 

378 print" [L"x2",+00J'"tab (24)"Linkskruemmung'" 

372 rem #% monotonie beim grad 4 %#% 

374 flay=8 
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376 if x(2><x(1) then h=x (1) :x(1)=x(2) :x(2)=h:if flay=i then 3808 

378 if x(3><x(2) then h=x(2) :x(2I=x(39) :x(3)=h:flag=1:9g0to 376 

388 print'gi| f faellt in [L-00,'"x(1)")" 

382 if x(2)>=1e8 then print" f steigt in [L"x(1>3",+003'":goto 412 

384 print" ff steigt in [L"x(1)","x(23"]J" 

386 print" f faellt in L"'x(23" ,"x(3)"J" 

388 print" f steigt in ["x(32",+00]2" 

398 goto 412 

392 : 

394 rem %%* kruemmung beim grad 3 3% 

396 print" ff ist bis"x3'"rechtsgekruemmt, dann" 

398 print" 1linksgekruemmt." 

480 : 

482 rem %% monotonie beim yrad 3 %% 

484 if ew=1 then print'E f ist monoton steigend!" :goto 412 

486 print'El f faellt monoton im Intervall" 

483 print" 1 = ["x1",'"'x2"J8" 

4148 print" Ausserhalb von I steigt f monoton" 

412 return 

414 : 

416 rem 38% integrationen r% 

4158 input" a,b";a,b:print 

428 x=b:gosub 426: fb=s:x=a:gosub 426 :fa=s 

422 x=fb-fa:gosub 440 | 

424 print" Das Integral von a ="a"'bis b ="b:print'B hat den Wert 
"x:return 

426 5= 

428 for i=n to BD step —1 

438 s=s+ta(n-i’*xtliri1)/liti? 

432 next i 

434 return 

436 : 

438 rem #%% runden der ausgabe x“x%* 

448 x=xiirz:if x-int(x)>=.5 then x=int(x> ti 

442 x=int(x)/rz 

444 return 

446 : 

448 rem 33% ausgabeformat aendern ##% 

458 print" Zahl der Dezimalen (=5 7"; 

452 gosub 494 :m=val(aw$) :if md5 then452 

454 print m:rz=int(1B8tm+.1) 

456 return 

458 rem 33% eindeutige ausgabe x“%*% 

465 for i=1 to n:for k=iti ton 

462 if x(k)=x(i) then x(k?’=1e3 

464 if n(k)=n(i> then n(k)=1e8 

466 next k:next i 

468 return 

478 : 

472 rem #%% null absichern x“%% 

474 if abs(x)<i1e-6 then x=B 

476 return 

478 : 

4858 rem ##4% unteren schirm loeschen #%% 

482 poke 214,13:poke 211,8:sys 58648 

484 for i=1 to 9:print 1lz$:next i 

486 poke 214,13:poke 211,89:sys 58648 
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488 return 


490 : 

492 rem 33% warteschleife r% 
494 get aw$:if aw$="" then 494 

496 return | 

498 : 

588 rem 3% menue ux%* 
582 print'ig" | 

584 print" Bitte waehlen Sie aus:B" 


586 print" 1) Koeffizienten eingeben" 

508 print" 2) Nullstellen" 

51B print" 3) Ableitungen" 

512 print" 4) Hoch- und Tiefpunkte" 

514 print" 5) Wendepunkte" 

516 print" 6) Monotonie und Kruemmung'" 

518 print" 7% Integrationen" 

528 print" 8) Ausgabeformat aendern"" 

522 print" 9 Ende" 

524 : 

526 gosub 494 :904ub 482 :f=val(law$) :pw=55377+f%48:poke Pw,B 
528 if f<1 or f>9 then 582 

538 : 

532 on f gosub 98,106 ,224,264,318,368,418,458,538 
534 : 

536 poke pw,1:9oto 526 

538 print"B" :end 


Erläuterungen: 

Zur bequemen Berechnung einzelner Funktionswerte definieren wir f, f,f (n=4) und 
9,9,9 (n=3). 

Da zweimal eine Gleichung dritten Grades gelöst werden muß, wird der entsprechende 
Programmteil als Unterprogramm ausgelegt (Z.38-84). 

Die häufigen Nullabfragen werden durch ein kleines UP (Z. 472) gegen Abbruch- und 
Rundungsfehler abgesichert. Weitere Maßnahmen finden in 2.130, 132, u.a.. 

Ob f eine, zwei oder drei Nullstellen besitzt, erkennt der Rechner an den 10°-Belegungen 
des Feldspeichers x (i), vgl. 2.48, 270, 274, 286. Analog werden die bis zu vier Nullstellen 
von f im Feld n(i) verwaltet. 

Die einzelnen Punkte des Menues sind nicht alle unabhängig voneinander abrufbar, ins- 
besondere muß 4 nach 2 und 6 nach 4 und 5 aufgerufen werden! 

Speicher pw in Z.526, 536 informiert uns durch Schwarzfärbung der ansonsten weißen 
Ziffern, wo der Rechner gerade arbeitet. 
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c) Testbeispiele 


Wir bringen zwei Hardcopyverschnitte des Bildschrims. 
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n=? 3 
a=? „IISZIIISS Nullstellen: Hochpunkt 1-1.732 ,„ 98.464 ) 
b=3 0 Tiefkunkt ( 1.732 . 1.536 > 
c=? -3 x =-3.625 
d=? 5 Wenderunkt: (8,5 > 
f ist bis 8 rechtsgekruemmt, dann 
linksgekruemmt 
f faellt_monoton_im Intervall 
I = -1.' m s 1.732 J 
Ausserhalb von I steigt ff monoton 
n=? 4 Nullstellen: Tiefpunkt ( 7.5 /-4.2197) 
a=? 0.02 = 9 Hochpunkt ( 3 / 2.16 ) 
c=? 0.9 = 9 Tiefpunkt (070) 
d=? OÖ 
e=? OÖ nn = 9) 
Wendepunkt ( 1.321 / „IBE ) 
Wendepunkt ( 5.5879 /-1.454 ) 
L-0o0, 1.321 ] Linkskruenmung 
E 1.321 ‚5.6793 ] Rechtskruemmung 
L 5.679 ‚+oo] Lirnkskruenmmung 
f faellt in [L-o0, 6 ] 
f steiet inLE 8,3] 
f faellt in [L 3 7.5) 
f steigt in L[L 7.5 ‚r00] 
a,b? 0,9 
Das Integral von a=0Obis bh = 5 


hat den Wert &.25 
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Zur weiteren Information noch zwei Hardcopies der zugehörigen Funktionsgraphen. Sie 
wurden mit dem Funktionenplotter aus Kap. 3.7, Bd. 1 erstellt. (Der interessierte Leser 
kann auch den Graphikblock des Messreihenprogramms in das vorliegende Programm ein- 
binden, was jedoch einigen Aufwand an Speicherumbenennungen erfordert). 


FixX)=.3333 3 3I 3x Hx - 3exrd 
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8 Integralrechnung und Differentialgleichungen 


8.1 Integration ganzrationaler Funktionen 


a) Mathematischer Hintergrund 


Eine ganzrationale Funktion kann man in der Form 
fix) a, x" tan, x tan a x %+...+a4X to 


darstellen, wobein € N den Grad und die a, €R mit i=0,1,2,..., ndie Konstanten der 
Funktion ausmachen. Das bestimmte Integral zu f innerhalb der Grenzen a und b lautet 


b 





n+1 n nal 2 


b 
[100 ax Fo) -Fa= [ar — x 


+ tra rao'%X 


a 








n+1 p” pn=1 2 
- (an +ran-ı' mn Fan-2' H..tan 2 +20°b) 
antı a” n—1 a° 
An" IT tan-ı'7 Fan-2' 7 7 +...tra7' 2 +2a0'4 


b) Allgemeiner Ablaufplan 


Eingabe des Grades n; Initialisierung eines 
Feldspeicher a der Dimension n + 1 


voni=n nn 
bis hinunter auf i=O 


Eingabe der Grenzen a und b 


x =b; Aufruf de U.P; Fu, *S 
x +a; Aufruf des U.P.;F, *S 
Ausgabe vonF,-F, 


Anfang des U.P.; S=-O 


Wiederhole 


bis hinunter auf i = 


Ende des U.P. 
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c) BASIC-Version 


10 REM ##* INTEGRATION GANZ-RAT.FKT. x*%% 
11 : 

15 REM x** EINGABE #*r%* 
20 FRINT"G GRAD DER FUNKTION 7"; 

25 GOSUB 97:N=VAL (AWF) :FRINT N:SFRINT 

30 FOR I=N TO 0 STEF -—1 

35 H£="A"+MIDFE(STRE(TD) „2, 1) +" " 

40 FRINT TAB(15)H$; : INFUT A(I) 


45 NEXT I 

50 INFUT'"'B GRENZEN A,B "sA,E 

Si: 

55 REM **%# VERARBEITUNG *%% 
&0 X=B:50SUEB 80: FB=S:X=-A: 560SUB 80: FA=S 

61 : 

65 REM #*%* AUSGABE xr% 
70 FRINT"EB INTEGRAL: "FE-FA:GOSUB 97:60T0 Z0 
71: 

75 REM ##%* EINZELINTEGRATIONEN *%%* 
80 S=O 


85 FOR I=N TO 0 STEP -1 
90 S=S+ALI)*X”"(I+1)/(I+rl) 


95 NEXT I 

9& RETURN 

97 REM x#%* WARTESCHLEIFE RE 
98 GET AW$: IF AuFf="" THEN 98 

97 RETURN 


Anmerkung: 2.35 bereitet die korrekte Anzeige der Konstantenspeicher a; bei der Eingabe 
vor. 
d) Testbeispiele 
1 
| x2ax=t 
“3 
0 
2 
2) [ea 9x +1) dx=-12 
2 
172 
3) [ (8,07 :x° -325,9:x° + 13,2 x?) dx = 11,9735 - 10° 


8,5 
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GRAD DER FUNKTION ? 2 GRAD DER FUNKTION ? 8 
A2 ? 1 AB ? 8.97 
Al ?o8 A? ?o 
ne ? 8 A6 ? 08 
AS ? 325.9 
GRENZEN A,B? 9,1 A4 ? 13.2 
A3 ?0 
INTEGRAL: „333333333 A2 ? 0 
Al? 
Ae ? 08 
GRENZEN A,B ? -8.5,17.2 
GRAD DER FUNKTION ? 3 INTEGRAL: 1.19734975E +11 
a3 ?ı1 
A2 >? -3 
Al? 2 
AB? 1 
GRENZEN A,B ? -2,2 


INTEGRAL :-12 


8.2 Numerische Integration 
8.2.1 Trapezverfahren 


a) Mathematischer Hintergrund 


Zur näherungsweisen Bestimmung der Fläche unter der Kurve von f zwischen a und b unter- 

teilen wir das Intervall von a bis b in n gleiche Teile und verbinden die zugehörigen Kurven- 

punkte durch Strecken miteinander. Auf diese Weise entstehen n Trapeze der gleichen Höhe 

b-a 
n 


h= 
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0 a eg UN OITTETEMLHAIGIEICHUNGEN 


Die Fläche eines einzelnen Trapezes ergibt sich nach der elementaren Formel als Produkt aus 
dem arithmetischen Mittel der begrenzenden Funktionswerte und der Höhe h. 


Die Summe der Trapezflächen wird sich mit wachsendem n immer weniger von der gesuch- 
ten Flächenmaßzahl unterscheiden; ihre Berechnung bietet keine Schwierigkeiten: 


f(xo) + f(x) fixı) + flxa) AxXn-ı) + Fl) 
Th 
= I [fOxo) + 2E0cı) + 2x) +. + 2 Alma) + Flo] 


n. e* + f(b) 


2 ICE TUN RE (Pan) 


Die letzte Umformung geschah schon im Hinblick auf einen günstigen Ablaufplan. 


b) Allgemeiner Ablaufplan 


Eingabe von a,b, n 


ho bza wa, 
n 
f(a)+f(b 
f(a) und f(b) im U.P. berechnen; S = an 
Wiederhole xexrh 
vonk = 1 f (x) im UP berechnen 
S-S+f(x) 
bisk=n-1 


Ausgabe von S:h 


Erläuterung zum Ablauf: 


Die Berechnung des Funktionsterms geschieht in einem Unterprogramm, um die Vor- 
schrift f leichter wechseln zu können; außerdem benötigt man Funktionswerte an drei 
verschiedenen Stellen des Hauptprogramms. Man beachte, daß das U.P. innerhalb der zeit- 
aufwenidgen Schleife nur einmal aufgerufen wird! 


c) BASIC-Übersetzung 
10 REM *** TRAFEZINTEGRATION *** 


15 DEFFN F(X)=X#X 

16 : 

20 INFUT"KE A,B,N":A,B,N 
25 H=(B-A)/N:X=A 

30 S=(FNF(A)+FNF(B))/2 
35 FOR K=1 TO N-1 
40 X=X+H:5=S+FNF (X) 

45 NEXT K 

so FRINT"B F =",5#H 
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d) Testbeispiele 


1. f(x) = x? a=0 b=1 0,33335 
1 
exakt: Ix”dx = 1 
" 3 
16) 
2.f0=2 a=1 b=2 0,693153435 
2 
exakt: x dx = In2 = 0,6931471806 


1 
3.f(x)=4,/1-x? a=0 b=1  3.140417032 (nach 65) 
1 


exakt: 4 MI = 
) 
4. Es sei bekannt, daß die Erdanziehungskraft auf einen Körper der Masse m gemäß 
F(ir)=ymM:- z 
abnimmt, wobei |y| = 6,67 : 10°"! und M = 6 : 10° kg. 


Man berechne die Energie, die man benötigt, um einen Körper der Masse 1 t von der Erde 
zum Mond zu schaffen. 


Lösung: 
1 


x2 


f(x) = 6,67 :10-"'-10°-6-10%- 


a=7,37:10° b= 3,456 10° n= 100 
liefert rund 5,5 : 10'° J 


b 


1 11 
exakt: |ymM--dx= mm (2-3) 


a 


= 6,67 10" 10° 6.10% (—— — 


r aaa) 531000 & 

7,37 10° 3,456 : 10 

8.2.2 Simpsonverfahren 

a) Mathematischer Hintergrund 

Beim Simpsonverfahren werden die Punkte (x1:f(xı)) und (x>; f(x,)) z. B. nicht durch 
eine Strecke verbunden wie beim Sehnentrapezverfahren, sondern durch jenen Parabelbogen, 
der durch die beiden o. a. Punkte und durch den dritten Punkt (x, + h/2; f(x, + h/2) be- 
stimmt ist; hierdurch werden im allgemeinen die Ungenauigkeiten bei gleichem n geringer, 
weil sich die Parabelstücke dem Kurvenverlauf besser anschmiegen können als die Strecken; 
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allerdings ist der Zeitaufwand fast doppelt so groß, weil innerhalb der Schleife durch die 
Hinzunahme des jeweils mittleren Punktes die Anzahl der zu berechnenden Funktionswerte 
etwa doppelt so groß geworden ist! 


f(x) 





Wenn man die Zwischenwerte mit gebrochenen Indizes kennzeichnet, kann man das Simpson- 
verfahren wie folgt darstellen: (a=xo,b = x) 


h/6 . (f(a) + f(b) + Af(xı1,2) + 2f(x,) + Af(x, 1/2) + 2f(x,) + Af(x, 1/2) +...t+ Aflxn-y2))- 


(Ausführliche Herleitung in der Analysisliteratur.) 


b) Allgemeiner Ablaufplan 


Anfang des Programms Simpsonverfahren 
1. Eingabe von a, b und (geradem) n 
2. H = (b-.a)/2n 


f(a) und f (b) im UP. berechnen und s = f(a) + f (b) 
x+atH;f(x) im UP. berechnen unds *=s+4f(x) 
3. Wiederhole [| x + x + H; f (x) im U.P. berechnen 
von I = 1 s+-s+2'f(x) 
x*-x+tH;f(x) im UP. berechnen 
s+-s+r4-f(x) 
bisi=N-1I 
4. Ausgabe von sH/3 
Ende des Programms Simpsonverfahren 
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c) BASIC-Übersetzung 


10 REM *** SIMFSONINTEGRATION **%* 
11: 

15 DEFFN F(X)=X#X%X-I#XrXr2%X+1 
1& : 

20 INFUT"LM A,B,N":A,B,N 

25 H=0.5*1B-A) /N:X=A 

350 S=FNF (A)+FNF(B) 

35 X=A+H:5=5+4*FN F(X) 

Ss& : 

40 FOR I=1 TO N-1 

45 X=X+H:5=5+2%*FN F(X) 

50 X=X+H:5=5+4*FN F(X) 

55 NEXT I 

56 3: 


&0 PRINT" F =";5%*H/3 


d) Testbeispiele (n = 100) 
2 
1) [ (x® -3x2 + 2x + 1) dx gibt bei beliebigem n exakt — 12. (Das Simpsonverfahren 
2 
liefert bei jeder ganzrationalen Funktion dritten Grades den genauen Wert!) 
2 


2) | 1/x dx gibt 8 Dezimalen von In 2: 0,693147185 


1 





3) [ — dx gibt 8 richtige Dezimalen: 0,94608307 ®) 


18) 


1 1 2 
4) [war 2" dx gibt 0,341344747, 
Ö 


Wer ganz sicher gehen will, daß alle Dezimalen richtig sind, müßte die 4. Ableitung der 
Integrandenfunktion für das Intervall [0; 1] betragsmäßig nach oben abschätzen. Allge- 
mein gilt nämlich für den Fehler e bei der Simpsonintegration: 











et (BE). IV 
2880 \n „max 
über a,b 


6) 





. sin x .. . nn ge 
Wegen lim. = 1 wähle man als untere Grenze etwa 0,001 statt O und addiere später für die un- 
x 


berücksichtigte Fläche 0,001 ° 1 = 0,001. 


(Mit Hilfe der Reihe 1 — 3731 + 5.517 7771 +... erhält man den 10-stelligen Vergleichswert 
0,9460830704) 
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8.3 Differentialgleichungen 


a) Mathematischer Hintergrund 
Wir beschränken uns auf explizite gewöhnliche Differentialgleichungen erster Ordnung 
yaflı,y) 


mit gegebenen Startwerten Xo, Yo. Es handelt sich hierbei um die Aufgabe, zu der über 
[a,b] x IR definierten reellwertigen Funktion f eine Funktion y =g(x) zu finden mit 


g(x) = flx,g(x)) 


für alle x aus [a, b]. Die ‚„‚g’’ heißen „Lösungen der Differentialgleichung’’; sie bilden eine 
Funktionenschar, aus der nach Vorgabe von Xo, Yo = 9(Xo) eine bestimmte Funktion aus- 
sortiert wird. Mit Hilfe des folgenden Näherungsverfahrens bestimmen wir Wertepaare dieser 
Funktion: 


Gegeben ist der Punkt P. mit den Koordinaten xo und yo; gesucht ist P, mit x, und yı. 

Wir setzen x; =Xo + h mit kleinem h und erhalten 

YıTYo 
h 





Sn g (Xo) =f(xo,Yo) bzw. yı=yoth'f(xo, Yo). 


Im zweiten Schritt übernimmt P; (x}, yı) die Rolle 
von P9 (Xo, Yo), und man erhält so einen dritten Punkt usw. 
(Eulersches Polygonzugverfahren). 





b) Allgemeiner Ablaufplan 


Anfang des Programms 
Eingabe der Startwerte x, y und der Schrittweite h 
Wiederhole Berechnung von f (x, y) 
xexth;yey+tflix,y)h 
Ausgabe von x, y 
bis von Hand abgestellt 
Ende des Programms 
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c) BASIC-Übersetzung 


10 REM *** EULERSCHE FOLYGONZUEGE X #%*%* 
1i: 

15 INFUT"LZ2E STARTWERTE xXO,YO"SX,Y 
20 INFPUT"B RECHEN- AUSG. SCHRITTW.";H,S 
25 K=0:N=INT(S/H+. 1): Z=INT(1/H+.1) PRINT 
26 3: 

30 FOR I=1 TON 

35 F=Y 

40 X=X+H:ı Y=Y+F*H 

45 NEXT I 

46 3 

50 W=X:605UR 70: FRINT" X="ıW; 

55 W=Y:ıG0OSUB 70: FRINT" Y="sW 

so GOTO 30 

61 : 

65 REM *%** RUNDEN *%% 
70 WeW*Z: IF W-INT (W) >=.5THEN W=INT(W +1 
75 W=INT (W) /Z: RETURN 


Bemerkungen: 


Wie weiter unten aus den Testbeispielen ersichtlich, wird man H in der Regel mit 0,01 
oder 0,001 belegen müssen, um halbwegs genaue Werte zu erhalten. 


Zweckmäßigerweise gibt man außer H noch eine Ausgabeschrittweite S vor. Im übrigen ist 
der Wiederholungsbiock bewußt kurz formuliert worden, weil die Rechenzeit ins Gewicht 
fällt. (F entspricht f(x, y) =y') 


d) Testbeispiele 


I. Man wird zwecks Genauigkeitsüberprüfung mit y = y beginnen. Anfangswerte xo=0, 
Yo = 1; mit h = 0,1 (h = 0,01; h = 0,001) erhält man nach 10 (100; 1000) Schritten 2,6 
(2,70: 2,717) für e'’=e = 2,718 (g(x) = e*). Grob gesehen gibt h somit den möglichen 
Genauigkeitsverlust längs einer Einheit auf der Abzisse wieder. (Vgl. auch den folgenden 
Bildschirmausdruck.) 


STARTWERTE x8,708? 8,1 
RECHEN- ,AUSG.SCHRITTW.? 0.81,1 


1 = 2.7 

2 = 7.32 

3 = 19.79 

4 = 53.52 

5 Y= 144.77 
=6 = 391.58 

7 = 1059.16 

8 = 2864.83 

9 = 7748.83 

18 = 208959.16 


II. y'=e*-y?;xo= Yo = 0; hier gibt es für die Lösung keinen geschlossenen Funktions- 
term wie oben, so daß man auf Näherungsverfahren angewiesen ist. Zu x = 1 gehört 
y=1,2(h= 0,1) bzw. y = 1,23(h = 0,01; Rechenzeit 5 s). 
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Ill. Auch y (y+x)=y -x besitzt keine Lösung in geschlossener Form. Für die Anfangs- 
werte (0,1); (0,2) und (1,1) sowie die Schrittweite h = 0,1 erfolgte eine graphische Aus- 
wertung. 





IV. Über einen Schalter S kann eine konstante Gleichspannung U. mit zwei hintereinander 
geschalteten Spulen des ohmschen Widerstands R und der Induktivität L verbunden wer- 
den. Für die momentane Stromstärke I (t) gilt 


VUo=R It) +L- It) bzw. lt) = (Ug-R:-IMt)):L. 





Zeittfins —e 


Wir wählen Uu, =4,5 V;R= 9,5 S2; L = 34 H sowie die Startwertet=O und I =0. Die 
zugehörige Kurve (h = 0,5) kann auch anhand der exakten Lösung 


_R, 
I = Lo/R-(1=e [ 


verifiziert werden (Grenzstrom “oz 0,47 A). 
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9 Lineare Algebra und Analytische Geometrie 


9.1 Vektoroperationen 


a) Mathematischer Hintergrund 


Ein n-dimensionaler Vektor ist eine Zusammenstellung von n reellen Zahlen (sog. Kompo- 
nenten) und wird meist in Form einer Spalte dargestellt: 


Cı 

1 u C3 

:-(2).5- 2 E 
E 5 

2 

Cn 


Bei festemn € IN,n 22, sind folgende Operationen erklärt: 
— . 
(1) Vektoraddition: a®b=c', d.h. 


a4 b} dı + b} C, 
a2 b> a2 +bz C3 
& .._ = 
An bn An + bn Cn 


(2) Vektorsubtraktion: Analog (1), nur werden die Komponenten einzeln subtrahiert 


(3)  $S-Multiplikation eines Vektors mit einer Zahl«a IR: &o a = b, d.h. 


a Qa'a74 b} 

d) a "do b> 
ao = = 

an aa, b„ 


— 
(4) Skalarprodukt zweier Vektoren: a*b=xEelR,d.nh. 


47 b} 
d2 b> 

* . = a,b, + aob>» +... +a,bn 
An b„ 


(5) Länge eines Vektors: lal:=vVax*a 
(6) Winkel zwischen zwei Vektoren: «X (a, b) 


Den Kosinus des gesuchten Winkels erhält man durch Umstellen der Gleichung. 


> > 
°*b=[al-|bl-cos+(3,b). 
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Wir stellen im folgenden ein Menü vor, welches den Aufruf der sechs Operationen in belie- 
biger Reihenfolge gestattet. 


b) BASIC-Programm 


180 rem #%% vektoroperationen xx% 
181 : 

185 goto 548: rem >>> menue 

106 : 

119 rem X%% vektoraddition xx% 


115 gosub 388 

128 for i=1 to n:c(i)=ali)+bli) :next i 
125 gosub 4108 

138 return 

131 : 

135 rem *#% vektorsubtraktion xx% 
148 sosub 388 

145 for i=1 to n:c(i)=ati)-bli):next i 
1589 sosub 415 

155 return 

158 : 

168 rem *%%% s-multielikation xx% 
165 erint'Bg Skalar :g" 

178 for i=1to int(n/72) :print"'El" ; :next 
175 input s 

185 az$="Vektor :E' :se=13:90sub 445 

185 for i=1 to n:c(i)=b(i)ks:next i 

1985 gosub 418 

195 return 

196 : 

288 rem K%% skalarprodukt xr% 
285 gosub 3886:x=8 

218 for i=1 to n:x=x+ta(i)%b(i) :next i 
215 gosub 5060 

228 sp=30 :e9$="Ergebnis:":gosub 488 

225 return 

226 : 

238 rem #%%* ]laenge eines vektors *“r% 
235 sp=1:az$="Vektor :E" :gosub 448 

248 x=B:for i=1 ton 

245 x=x+tb(i)%*kb(i) :nexti 

258 x=sar (x) :gosub 588 

255 sp=2B:e9$="Laenge:" :gosub 489 

268 return 

261 : 

265 rem *3%*%* winkel zwischen vektoren %% 
278 gosuk 380:5p=B:1a=0:1b=6 

275 for i=-1 ton 

2885 sp=sp+ta(i?’kb(i) 

285 la=latacli)’%ali) :lb=elb+tb(i)’kbti) 

298 next i 

295 la=sar (1a? :1lb=sar (1b) :cs=sp/la/lb 
388 if abs(abs(cs)-1)(1le-6 then 318 

385 ac=-atn(cs/sar (1-c0st2)) +&/2:90+0315 
318 ac=8:if cos=-1 then ac= 

315 x=act180-%:90sub 588 

328 sp=28:2y$="Winkeigrad:" :gyosub 488 
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325 
326 
338 
335 
348 
345 
358 
351 
355 
368 
365 
3768 
371 
375 
376 
388 
385 
398 
395 
488 
+81 
405 
418 
+15 
428 
425 
438 
431 
+35 
+40 
445 
458 
455 
468 
465 
4708 
471 
475 
4508 
455 
+98 
435 
496 
>88 
>85 
>18 
515 
>16 
>20 
>25 
>38 
>31 
>35 
>36 
>48 
>45 
>58 


return 


rem %%% dezimalenzahl aendern %%% 
print"'BE Wieviel Dezimalen?'" 

gosub 5248 :z=vallaw$) :if z>7then 335 
z=int(ci18tz+.1?> 


return 

rem #%*%% dimension aendern %r% 
erint'Eg Dimension:" :aosub 328 
n=zuvallaw$) :if ntZ2 or n?9 then 368 
return 

rem #%*% hilfsunterprogramme xx% 
rem %%% vektoreingabe *%% 


erint'EB| 1.Vektor:E' 
for i=1 to n:input a(i)> :next i 
az$=" Z.Vektor :B'"':sp=i13:goasub 448 


return 
ren #%%# vektorausgabe x%x% 
erint'EBl' spc (27) "Ergebnis: 


for i=1 ton 

x=0(i) :gosub 5868 :print sec(Z26)x 
next i 

return 


rem *%*%* einzelvektoreingabe %% 
i=1:print'EB]| "sec(sp)az$: 
printspc (sp? ; :ineput h$:bli)=uvalch$) 
i=zi+1:if ic=n and h$<>"k" then 445 
if h$3<c’"k" then 4708 


erint'’i'":for i=1 ton 

b(i)=c(i) :printspc(sep+ti)bli}:next i 
return 

rem %%% skalare ausgabe *%*% 
perint '"'BE'spc(sp)eyf$ 


for i=1 to int(n/23 :print"E"; :next 
print'B'sectsp-1>x 


return 
rem %% runden **% 
x=xkz:if x-int(x)>=.5then x=int(x)+i1 


x=int(ix?/z 
return 


rem ##% warteschleife *%*% 


get aw$:if aw$="" then 525 


return 
rem #%% hauptprogr am 3% 
n=3:2=1004 


print'EB BEI 
print" Bitte waehlen Sie aus:E" 
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>55 print" 1) Vektoraddition" 

s68 erint" 2) Vektorsubtraktion" 

565 print" 3 S-Multiplikation" 

>78 print" 4) Skalarprodukt" 

>75 erint" 59 Laenge eines Vektors" 
588 print" 53 Winkel zwischen Vektoren" 
>85 erint" 75 Dezimalenanzahl aendern" 
598 print" 83 Dimension aendern" 

>95 erint" 9  Endelg'" 

596 : | 

g8B88 if F=9 then gyosub 528 

685 fF=vallaw$) :if Fi1l or f>9 then 545 
6105 poke F35859+f%40,0:poke1587+7%48, 122 


615 on f gyosub 118,148,160,2089,238,278, 
358,368,999 :gosub 528 

628 if aw$t}"9" then 545 

625 print'B":end 


Erläuterungen: 


Die Umsetzung von (1) bis (6) aus Abschnitt a) nimmt verhältnismäßig wenig Zeilen in 
Anspruch, das meiste dient einer halbwegs komfortablen Ein- und Ausgabe. (Zu den 
Revers-Symbolen s. Hdb. S. 166.) 


Standardmäßig sind dreidimensionale Vektoren und eine gerundete Ausgabe mit drei 
Nachkommastellen voreingestellt. In der Hoffnung, daß sich der Leser infolge der vielen 
Kommentare gut zurechtfindet, beschränke ich mich hier auf wenige Anmerkungen. 


Z.170 bzw. Z.485 bewirken eine zum jeweiligen Vektor vertikal zentrierte Ein- und Aus- 
gabe eines Skalars. In diesem Zusammenhang sei auch an den SPaCe-Befehl erinnert, der im 
Gegensatz zum TAB die in der Variablen sp enthaltene Zahl von Positionen ohne Löschen 
überspringt (Z.440,480 u.a.). 

Wenn das U.P. in Z.435 aufgerufen wird, kann man anstelle eines Vektors einfach K 
<RETURN> eintippen, worauf der im Feldspeicher c befindliche Vektor übernommen 
wird (K wie Kettenrechnung; man denke an drei oder mehr Summanden; auch läßt sich zu 
einem Summenvektor anschließend die Länge bestimmen oder eine S-Multiplikation durch- 
führen). 

Weil der C-64 den Kosinus nicht direkt umkehren kann, mußte auf die Arcus7a//gensfunk- 
tion zurückgegriffen werden. Wie man aus Z.305 ersieht, muß man einen division-by-zero- 
Ausstieg abfangen. (Das kleine, karrierte Symbol steht für .) Wer nun einfach anstelle von 


368 if abs(abs(cs}’-1)<1e-6 then 318 


388 if abs(cs)=1 then 3108 


programmiert, erhält öfter ungenaue Ergebnisse, s.u.. Ab Z.600 wird dafür gesorgt, daß 
man mit minimalem Tastenaufwand hin- und herschalten kann. Weil der Cursor bei GET- 
Eingaben unsichtbar bleibt, erinnert uns ein kleiner, schwarzer Haken an die augenblick- 
liche Situation (Z.610, Hdb. S. 138, 139). 
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c) Testbeispiele 


Wir zeigen einige Bildschirmausdrucke 


Vektor: 


a N 


POr 


Bitte waehlen Sie aus: 


Laenge: 


1.4142136 


Vektoraddition 
Vektorsubtraktion 
S-Multiplikation 
Skalarprodukt 


YLaenge eines Vektors 
Winkel zwischen Vektoren 
Dezimalenanzahl aendern 


Dimension aendern 


Ende 


1.Vektor: 


e 
-3 
7 


1.Vektor: 


2 
-3 


? 7 


V 


1.Vektor: 


5 
-2 
3 


V 


V 


u 


2.Vektor: 


6 
-9 
21 


9.2 Vektorielle Geometrie 


a) Mathematischer Hintergrund 


Winkelgrad: 


Winkelgrad: 


2e-B3 


Winkelgrad: 


98 


135 


Mit Hilfe von Vektoren lassen sich Geraden und Ebenen im Raume beschreiben. Nimmt 
man noch einzelne Punkte hinzu, ergibt sich eine Fülle von Fragestellungen, von denen wir 
beispielhaft folgende behandeln: 


Abstand eines Punktes von einer Geraden 
Abstand eines Punktes von einer Ebene 

Durchstoßpunkt von einer Geraden in einer Ebene nebst zugehörigem Schnittwinkel 
Abstand zweier ‚windschiefer‘ Geraden 
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Zu | 


Gegeben sei ein Punkt P durch seinen Ortsvektor p und eine Gerade g durch ihre Parameter- 
darstellungr = a +t-u. Man kann zeigen, daß der Abstand von P zu g durch den Term 


Vo X(p-a)l (1) 
dargestellt wird, wobei Un denzuu gehörigen Einheitsvektor kennzeichnen soll. 
Zu Il 


P sei durch D und die Ebene E durch ihre Normalenformn r-na=0 gegeben, wobei an- 
stelle von n a oft die Konstante c bekannt ist. 


Dann kann der Abstand von P zu E durch den Ausdruck 
beschrieben werden. (Ist c gegeben, muß c durch die Länge von n geteilt werden.) 
Ist die Ebene in der Parameterform gegeben, also 


E:r=a+s-u#+tv (3) 
so führt man sie in die Normalenform über, indem man u X v als Normalenvektor nimmt. 
Zu Ill 

>> > 7 — 
E:nr-c=0; g:r=b+tAw 
Wenn man die rechte Seite der Geradengleichung statt r in die Ebenengleichung setzt, er- 
hält man nach wenigen Umformungen 


A= TzZ7 (4) 


Mit diesem Wert liefert der Geradenterm den Ortsvektor zum Durchstoßpunkt. Den zuge- 
hörigen Schnittwinkel erhält man als 


|90° —- w| (5) 


wobei w den Winkel zwischen n und w bedeutet. Den Spezialfall g || E erkennt man daran, 
daßnl w, also n w = 0. Jetzt kann man noch den Abstand von g zu E ausrechnen, indem 
man die Spitze von b als Punkt im Sinne von II behandelt. 

Zu IV 


Befinden sich zwei Geraden im Raum, so laufen sie entweder aneinander vorbei, oder sie 
sind parallel oder sie treffen sich in einem Punkt! Im ersten Fall kann man das Rezept 


X NMolb-3)| (6) 


zur Berechnung ihres Abstands verwenden. 

(u, V und 3, b seien Richtungs- bzw. Stützvektoren aus den Parameterdarstellungen. 
(U X Vo meint das auf Einheitslänge gebrachte Vektorprodukt). 

Wird u X vzum Nullvektor, so ist 9; I 9». Jetzt läßt sich der Abstand gemäß | berechnen, 
wenn man z.B. die Koordinaten von b als Punkt deutet, dessen Abstand zu g,; berech- 
net werden soll. 


Bleibt der Fall, daß sich g; mit g> in einem Punkt S trifft. Man erkennt dies daran, daß 
(6) Null wird. 
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Um die Koordinaten von S zu ermitteln, bestimmt man das u aus dem Ansatz 
a+Au=sb+tuVe3-b=euv-Au 

® c=uv-Au 

» ch =vam+lZun) A 


Ca = VouUt (= u) A 
Cz=Vzu+t (Zug) A 


Weil wir die Existenz der Lösung voraussetzen können, liefert die Cramersche Regel, ange- 
wandt auf die ersten beiden Gleichungen des Systems, 


(7) 


— 
Mit diesem u erhält man gemäß r = b+u -V zu den S gehörenden Ortvektor. 


Den Schnittwinkel bekommt man mit Hilfe der Richtungsvektoren U und V, wobei man 
sich auf Winkel < 90° beschränken kann. 


b) BASIC-Programm 
169 rem %3%% analutische geometrie 2 2; 


185 : 

118 soto 658: rem >>> menue 

115 : 

128 rem 3% punkt und gerade xx% 
125 input'Egl Punkt NX,4,Z 


138 gyosub 478:rem >>> gerade eingeben 

135 gyosub 5568:rem >>> abstand berechnen 

148 if w=8 then print'E F liegt auf 3!" :goto 1508 
145 print'E]| Abstand F von qg:";w 


1585 return 

155 : 

1668 rem #%%* punkt und ebene x%% 
165 ineut'EN Punkt "IX,4Y,Z 


179 gosuk 418:rem >>> ebene eingeben 

175 gosub S58:rem >>> abstand berechnen 

185 if w=8 then print'E P liest aur E'!'":goto 198 
185 print'E| Abstand P, E:",w 

195 return 

195 : 

208 rem *%% gerade und ebene 34% 

255 print'B'"; :gyosub 4709:rem >>> gerade eingeben 
219 bil=al:b2=32:b3=a3:wil=ul :w2su2:w3=u3 

215 gosub 4i18:rem >>> ebene eingeben 

228 if abs(nikwi+rn2tw2+n3kw3) <{ 12-9 then 255 
225 ld=(ic-n14b1-n23b2-n3%b3) 7 (Cnikwil tnZXw2 +n3tw3? 
238 di=bil+1ldkwil :d2=b2+1ldtw2 :d3=b3+1ldKw3 

235 w=di1:gosukb 619 :d1=w:!wsdZ :y0osuUb6&E1B:d2=w: wed3 !'gosukbE1d:d3ew 
248 print'E| F ("dı1" -"d2" tz" 3" 

245 gosubSUg :w=abs (9B-w} !’gosub 618 

258 print" Winkel"w"’Grad'" :auto 265 

255 x=bi :u=b2:z=b3 
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268 gyosubS&8ß:print'fi a || E im Abstand'w 
265 return 

278 : 

275 rem *%#% gerade und gerade x%% 


288 print'EB8l 1.Geradeß' :gosub 476 

285 kbi=al:bZ2=a2:bh3=a3:uv1l=uil: vZsu!:v3=u3 

298 print'E Z.Seradeß" :aosub 470 

295 yosub 3968:rem DI’D> uxwv 

388 1=35qar ck13k1HrkZ4k2 HK 3K 3) 

365 if 1<1e-9 then x=bi :y=bZ:z=b3:gosub 558 :print'E| yi || 92" :aoto 
318 k1=k171:k2=k271:k3=Kk3/1 

315 w=abs(ki1%#(bil-al) +k2kcb2-aE) +k3%Cb3-33)2) 

328 gyosub 618:if wPB then print'E Abstand 9i1,u?8 U w:igoto 365 
325 c1=ai-bil:cZ=a2-b2 

338 zd=c1%i-u2)-02%8l-ul) ıind=vi1Fl-u2) -vZki-ul! 

335 ld=szd/nd:si=1ld%u1+tbil:sZ=1ld8UuZ2+b2 :53=1l1dHu3+b3 

348 n1=ul:n2=sus:n3=u3:wi=ul :wisyz:w3sug :gasub 506 

345 gyosub 61H8:if wW9IB then wel1&ßhH-w 

358 print'E| y1 schneidet g2" 

355 print!" im Punkte 5('"!si1'""s2""353"}" 

368 print" unter einem Winkel von'"'w"örad" 

365 return 


378 : 
375 rem 38% hilfsunterproaranmme x%r% 
3808 : 
335 rem 33% kreuzprodukt xxr% 


398 ki1=zu23u3-u3RUE :k2=- UL KUZ-UFERU 1) :K3SUl KU - UF ku 1 
395 return 


405 rem #%% eingabe einer ebene x%% 

418 erint'El E in Farameter- oder Normalenform 7" 
415 gyosub 8658:print:if aw$="n" then 435 

428 input" 1. Richtungsvektor" ;ul,u2,u3 

425 input" Z. Richtungsvektor" ;u1l,v2,u3 

438 3osub 398 :n1=k1:n2=k2:n3=k3:g90t0o 458 

+35 input' Hormalenvektor "inl,nz.n3 

446 print" Konstante oder Stuetzvektor?'":gosub 630 
445 if aw$="k"then input" c=";c:90t0460 

458 input' Stuetzuvektor ":al,a2,a3 

455 c=nl1%al+tn2ta2tn3%a3 

4689 return 


455 : 
478 rem #%% eingabe einer geraden *%% 
475 input'E Stuetzuvektor "31.322,35 


458 input" Richtungsvektor" ;ul,uZ,u3 
455 return 


435 rem 3%% winkel zwischen vektoren #% 
586 sp=w1#ni1+tw2inZ+w3#tn3 

s85 lw=sar (wlkwitwZkwz+tw3tws? 

518 In=sar (nli#tni+nzinZ+tn3#ns? 

515 cs=sp/lw.-ln 

528 if abs(abs(cs)’-1)<le-6 then 3308 

525 a0=-atnicss/sar (1-0st23 I) +2.72:90t0535 
538 ac=8:if cs=-1 then aczı 

535 w=ack1&80’% 

408 return 
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59 rem 33% zum abstand p,serade *%% 
>55 1=sqar (ulkul+ruz2tu2+u3&u3?> :ul=sull:u2=u271l:ussu3/rl 
S68 vl=sx-al:uvlsy-al:u3=z-33:905Ub 3908 
5565 w=sar (k13k1+rk2%k2+Kk34k3> :gosub 618 
>78 return 

375 : 

>88 rem 3%%% zum abstand p,ebene xx% 
>85 1=sar (nl#äni+nZ%n2+n3%n3)} :o=c#1l:!ni=sni1/1l:n2=enZ2/1:!n3=n3/l 
>96 s=nlikx+tnzky+tnskz :wesabs (5-0) :yosubbild 
>95 return 

860985 : 

6055 rem 3% runden x% 
Bi wewtdz: if w-int(w>=.5 then w=einttw>+i 
8615 weint(w) /dz 

8628 return 

BES : 

3A rem Kr warteschleife u 2: : 
635 yet awF:if awf="" then 8535 

645 return 

645 : 

858 rem %#% dezimalenzahl aerndern 3#%% 
855 print'BEE Wieviel Dezimalen?" 

868 Yosub 8358: dz=valc(laws) :ifdz>r7thends> 
665 dz=int(18rdz+t.1> 

678 return 

675 : 

6585 rem ##% hauetprogranmm x% 
685 : 

898 Jdz=1088 

895 erint'"'BEEEBEEBEEBEEEEEBEBEERB 

eG print" Bitte waehlen Sie aus:B" 
785 print" 13 Punkt und Gerade " 
718 print" 2) Punkt und Ebene " 
715 print" 3) Gerade und Ebene " 
728 print" 45 Gerade und Serade " 
TES5 print"! D» " 
7368 print!" 6) " 
735 erint' 9 " 
748 print!" 53 Dezimalenanzahl aendern"! 
745 print" 9 Ende 

1758 : 

755 if f=&6 then wosukb 638 

7688 F=valtaws) :if fi or f>9 then 695 
T&E5 pöoke 55559+f448,8:pokeilS87+r%40,1ZZ 
77a on ff yosub 128,160, 208,280,750,780,788,650,750 ::90=5ub 630 
775 if awFf}"3" then 695 

sa print'B' end 






Erläuterungen: 

Einige öfter gebrachte Anweisungen wurden als Unterprogramme (ab Z.375) angelegt. Der 
Spiegel (Z.680ff) wurde aus 9.1 übernommen; 5) bis 7) kann der Leser nach seinen Vor- 
stellungen ergänzen (z.B. mit dem Thema „Ebene und Ebene‘, dem Einbezug von „Kugeln“ 
u.a.m.). 

Ebenfalls wurde, leicht abgeändert, die Routine zur Bestimmung des Winkels zwischen zwei 
Vektoren übernommen. 
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Zum Schluß noch die den wichtigsten Algorithmen zugeordneten Zeilen: 


(1) > Z.555-565 (6) > Z.295-315 
(2) > Z.585-590 (7) > Z.325-335 


(4) > Z.225-235 
— 1 2 
O0) +A 1 den Abstand 3 
— 1 —2 


—3 
Il P(2/- 4/1) hat von 2 ) Tr +27=0.den Abstand 1 
—6 


5 7 1 
I g:;r = Kia (2) E: 0)?-5-0 
3 1 —4 


g durchstößt E im Punkt (33| — 9|7) unter einem Winkel von 5,682.Grad 


ER ENEME 


g verläuft parallel zu E im Abstand = 2,698. 


1 2 3 3 
IV ra) -2);0:7- 2) 4 ) 
3 4 0) —8 


g; schneidet g5 in S c, =, 4) unter einem Winkel von rund 48,363 Grad. 


2 -2 1 2 
nr 2)er| 0 er le)en| 0 
3 1 6 — 1 


g, verläuft parallel zug,» im Abstand 3. 


—1 3 1 -3 
gr 3 |+X (2):0:7-( s8ı tu i 
4 0 1 1 


g; läuft „windschief’' an ga im Abstand 7 vorbei. 


c) Testbeispiele 
| P(3/1/0) hat vong: r = 


9.3 Lineare Gleichungssysteme 


a) Mathematischer Hintergrund 
Wir betrachten ein System von n Gleichungen mit n Variablen x}, X2,..-, Xn: 
a11Xı + A12X2 +... F AınXn Aln+1 


a Xı ramX2 +... Fr AznXn” A2n+1 


Anı %ı + An2X2 +... + AnnXn ” Ann+1 
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Je nach Vorgabe der n mal n + T Konstanten a hat das System genau eine, unendlich viele 
oder gar keine Lösung. Welche dieser drei Fälle vorliegt, läßt sich anhand der Trapezform 
ausmachen: 


b41%ı + b12%2 +... + Din Xn = Bın+ 1 


b»2xX2 + .. + Dan Xn = Ban+ 1 


DanXn = Dan+1 


Man bringt das gegebene System auf die äquivalente Trapezform (auch Staffelform oder 
Dreieckform genannt), indem man in der 2-ten, 3-ten, ..., ten Gleichung jeweils die Va- 
riablen x; bis x;_; zum Verschwinden bringt: Gaußsches Eliminationsverfahren. 

Dies geschieht in n - 1 Schritten. Zuerst wird die Variable x; in Gl. 2 bis n eliminiert, 
indem man jeweils das minus -fache der 1. Gl. zur i-ten Gl. addiert, i= 2, 3,...n. Dann 
wird analog x» in den Gl. 3 bis n durch Addition geeigneter Vielfache der (neuen) 2.Gl. 
eliminiert usw., vgl. Z.970ff aus 9.3c. Voraussetzung ist dabei, daß a}; und dessen Nach- 
folger, also der jeweils erste Koeffizient des Restsystems, # O sind. Andernfalls muß diese 
Voraussetzung durch Vertauschen zweier Gleichungen erzwungen werden. Ist dies nicht 
möglich, so ist das System nicht eindeutig lösbar. 


Im Falle der eindeutigen Lösbarkeit ist b„„ + O und x, = Bun+1/Bun- Mit Hilfe von x, 
berechnet man x, aus der vorletzten Gl. usf., bis schließlich aus der ersten Zeile x, mit 
Hilfe von x2 bis x„ berechnet wird: Sog. Rückeinsetzung, vgl. 9.3c, Z.1030. 


Um den Einfluß von Abbruch- und Rundungsfehlern zu reduzieren, bieten sich folgende 
flankierende Maßnahmen an: 


1) Relativierung der Null 


Wenn z.B. das b„„ der Trapezform in der Größenordnung 10° liegt, wird das in der 
Regel Null bedeuten. Folglich wird man in Abfragen Null besser durch ein Intervall wie 
- 10°8, 10°] ersetzen (vgl. Z.520) 


2) Normierung der Konstanten 
Wenn die Beträge der Konstanten stark schwanken, hilft oft die Division der einzelnen 
Gleichungen durch die jeweils betragsgrößte Konstante (s. Z.570). 


3) Pivotisierung 
Wir erwähnten schon, daß bei der Elimination die Vertauschung zweier Gleichungen er- 
forderlich wird, wenn die 1. Konstante des betrachteten Systems Null ist. Bei der sog.. 
Spaltenpivotisierung sucht man nicht einfach die nächste Konstante der 1. Spalte, die 
ungleich Null ist, sondern jene mit maximalem Betrag (s. Z.670). 


Bei der 7otalpivotisierung zieht man auch die restlichen Spalten heran, um den betrags- 
größten Koeffizienten zu suchen: Eine Methode, die ohne Rechner großen Aufwand 

mit sich bringt, weil neben den Zeilen auch die Spalten vertauscht werden und über die 
Reihenfolge der Variablen Buch geführt werden muß (s. Z.740). 


142 9 Lineare Algebra und Analytische Geometrie 


4) Nachiteration 
Gelegentlich kann man die mit Hilfe des Gaußverfahrens gewonnene Lösung um einige 
Dezimalen präzisieren, indem man sie als Startvektor dem schon in 6.3 erläuterten Ver- 
fahren übergibt. (Zum entsprechend verallgemeinerten Verfahren s. Z.1570.) 

Der folgende Ablaufplan zeigt u.a., wie diese Maßnahmen unabhängig voneinander kombi- 

niert werden können. 


b) allgemeiner Ablaufplan 











Eingabe der Konstanten auf Feldspeicher c,« mit Zeilen i=1,2,...n 
und Spaltenk =1,2,...,n+1 


aktuelle Umspeicherung a;« * C;k 


Pa Null relativieren? 


Konstanten normieren? 


Pivotwahl treffen: Eingabe pv (1,2,3 für Spalten —, Total —, keine Pivot.) 


12T Auswahl gemäß pv 


Spaltenpivotelement | Totalpivotelement | Element # O 
suchen suchen suchen 
k-te Elimination 


bis k = n oder vorzeitiger Ausstieg wegen 
nicht eindeutiger Lösbarkeit 












Wieder- 
hole 









Wieder- 
hole 















System eindeutig lösbar? 


Rückeinsetzung 


Ausgabe der Lösung oder Hinweis auf den nicht eindeutigen Fall 


Nachiteration verlangt? 


bis Endsignal eingegeben 


c) BASIC-Übersetzung 
188 ren IRRE EEE 


185 rem % * 
118 rem *% lineares gleichungssystem % 
115 rem % % 
128 ren III ER RER 
125 : 

138 : gyoto 1698:rem >>> menue 
135 : 

149 rem IRRE 
145 rem % % 
158 rem % einzelbausteine % 
155 rem % % 
1680 ren IRB 
165 : 

178 rem ------------------ 7-77 
175 rem % eingabe der konstanten % 
1868 rem -- 7772777720020 
185 : 

2068 rem % up --- eingabeweiche -_—— 


2685 if flag=B then 228 

218 print "BW"az$; :input#i1,zr$ 

215 zr=val(zr$) :gosub 288:print"ENg" ;: 
228 printaz$; :input#i,h$:c(i,k)=valch9#) 
225 if flag=1 then c(i,kd=zr/co(i,k) :gosub 288:print" "; 
238 return 

235 : 

248 rem % up --- nahtlose indizes --- 
245 az$="a"+mid$(str$(i),2,1) 

250 az$=3z2$+mid$(str$ck) , 2,13 +"=" 

255 return 


268 : 

265 rem % up --- schirmkoordinaten --- 

278 poke 214,zl:poke Zi11,sP:5sys 58648:return 

275 : 

2886 rem % up --- eingabeposition --—- 

285 if n<c4 then zl=eit+ti+ti2:sp=eint((k-1)%C277/n) +1.51> :9osub 278 
298 ‚gosub 248 

295 return 

308 : Ä 

385 rem # up --- dialogzeile --— 


318 zl=1:sp=8:g90osub 278:print'B"az$; 
315 gosub 1398:print awf$ 

328 for ii=1 to 333:next ii 

325 zl=1:sp=8:90sub 278:print"W"1z$ 
336 return 


335 : 

348 rem ---- eingabe -——n- 
345 dz=1808 :pu=3:za=i12:9gosub 1138 

3508 az$=" Anzahl der Gleichungen? " 
355 gosub 318:n=val(aw$) 

368 az$=" Auch Brueche eingeben? " 


365 gosub 318:if aw$="j" then flay=i 
378 if n?3 then print'BEE ' 

375 open 1,68 

388 for i=1 to n:for k=i to n+i 
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385 gosub 2868 :90osub 288 
398 next k:if n?3 then print 


395 next i 

488 : 

485 az$=" Korrektur noetiy? " 

418 gosub 3108:if aw$<f>"j" then 445 
415 input" Zeile,5palte "sij,k 


428 print" 1lz$:90s5ub Z2808:if n?3 then print"R"tab(25>; 
425 gosub 208 

438 az$=" alles o.k. 7" 

435 gosub 318 

445 if aw$e'nl then 415 

445 print"i";1z$:if n?3 then print'gß" 
458 close 1:flay=8 

455 return 

468 : 

465 rem --==---- 277 ---------- 
478 ren % umspeicherungen % 
475 rem ------- >... ----- ---------------.- 
488 : 

485 for i=1 ton 

439 for k=1 to n+t1:a(i,k)=c(i,k) :next k 
495 vcid>si 

598 next i 

505 return 

Ssi18 : 

515 rem ---------- >77 - 7 - 7-77. 
Ss28 rem *% relativieren der null % 
s25 rem =--------- 7-7 77770. 
538 : 

535 az$="B Null:= [-18 hoch -n,+16 hoch -n]; n=" 
548 gosub 310 

>45 eps=val(aw$) :if eps=B then 555 

S5B eps=1B+t(-eps) :gosub 1448:rem >> ’+’ 
555 return 

S6Q9 : 

>65 reMm -------- 777 77 
578 rem % konstanten normieren % 
575 rem --------- 7-7 2-77 77 
388 : | 

585 gosub 478 :905ub 144B8:rem >> ’+’ 

598 for i=i ton 

595 max=abs(a(i,1)) 

688 for k=2 to n+i 

6085 h=abs(ali,k>):if hDmax then max=h 
818 next k 

615 for k=1 to n+i 

628 ali,k)=a(li,k)/max 

625 next k 

638 next i 

635 flag=1:rem >>> ali,k) sind normiert 
648 return 

645 : 

8658 rem 7---- 7-7 7777 nn 
655 rem % spaltenpivotisierung % 
868 rem -—=-=-------7- -- --- 77207770 
8665 : 
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878 pk=abs(ack ,k)) :pz=k 
6875 for z=k+t1 ton 
8688 h=abs(atlz,k)):if h)ekthen ek=h:pz=z 


685 next z 

8698 if nottabs(epk)>eps) then s$="n":goto 725 
695 : 

88 rem ---- zeilentausch -——— 

785 z=pz 


716 for i=-k to n+i 
715 hack ,i):alck ,i?=a(z,i):a(lz,i?=h 
726 next i 


745 rem 777-7 -- 7-72 77-7770 


755 pk=abs(ack,k>) :pz=k :ps=k 

788 for i=k to n:for j=k ton 

765 h=abs(a(i,j>>:if h’pk then pk=sh:pz=ei:ps>m) 
778 next j:next i 

775 if not (abs(pk) > eps)> then s$="n":g0oto 845 


785 rem ---- zeilentausch = 
798 z=pz 

795 for i=k to n+i1 

8808 h=ack, id t:aclk,i)satz,i):alz,i)sh 

8085 next i 


8i5 rem ---- spaltentausch = 
328 j=ps 

325 hzuck) :uck)=uU(CJj) :ytj)=h 

838 for i=1 ton 

835 h=a(i,k):ali,k)sali,j) :ali,j?>s=h 

848 next i 

845 return 


875 if abs(ack,k)) > eps then 948 
880 z=k 


898 rem ---- zeilentauschversuch ---- 
895 z=z+1 

988 if abs(a(z,k?) > eps then 925 

985 if zf{n then 895 

918 s$='"n":9goto 948 


928 rem ---- zeilentausch =. 
925 for i=k to n+i 

938 h=alk,i):ack,i)=salz,i):a(lz,i)=h 

935 next i 

948 return 
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958 

955 

9808 

965 

978 

975 

988 

985 

998 

995 

1808 
1805 
1818 
1815 
1820 
1825 
1038 
1935 
1948 
1845 
1858 
1055 
10860 
10965 
1878 
1975 
1988 
1985 
18698 
1895 
1108 
1195 
1118 
1115 
1128 
1125 
1130 
1135 
1148 
1145 
1156 
1155 
1168 
1165 
1178 
1175 
1188 
1155 
1198 
1195 
1288 
1285 
1210 
1215 
1228 
1225 
1238 
1235 
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rem 77-7772 277-2 - 
rem 77-7720 - 2 


for i=sk+1 ton 
fk=-a(i,k)/7ack,k) 

for j=k+i to n+i1 
aci,j>=ali,j)+tfkiack,j) 
next j 

next i 

return 


x(n)=a(n,n+1)/a(n,n) 
for i=n-1 to 1 step -i 
x(i)=a(i,n+ti)D 

for j=n to i+i1 step —i 
x(i’=x(i)-ali,j)xCj) 
next j 
x(i)=x(i’/atli,i) 

next i 

return 


pu=1:90to 11198 

pu=2 

gosub 1448:rem >> ’+’ 
return 


rem -———— m nnmianananenonnnnnn nennen 
rem -———— on |nnnninnn nenn no on nenn 
for zl=za to 23 

sp=B :yosub 278:print ]1z$ 


next z] 
return 


x=xkdz:if x-int(ix)>=,.5 then x=sint(x) +1 
x=int(x)7dz 
return 


rem ------------ 2-2 


rEM -=------------- -- >70. 
az$='" Wieviel Dezimalen ? " 
yosub 310: if aw$>'?7'" then 1236 
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1248 
1245 
1258 
1255 
1268 
1255 
1278 
1275 
1288 
1285 
1298 
1295 
1308 
1305 
1310 
1315 
1328 
1325 
1338 
1335 
1348 
1345 
1358 
1355 
1368 
1365 
1378 
1375 
1358 
1385 
1398 
1395 
1468 
1465 
1418 
1415 
1428 
1425 
1438 
1435 
1446 
1445 
1458 
1455 
1468 
1465 
14768 
1475 
1458 
1485 
1498 
14925 
1568 
1585 
1518 
1515 
1528 
1525 


dz=val(aw$) :dz=int(198trdz+.1> 
return 


za=15:if n(c4 then za=21 

yosub 11308:sp=8:zl=za 

gyosub 278:print'"E Ergebnis: ae‘ 

if s$="n" then 1315 

for i=1i ton 

y(vci))=x(j) 

next i 

gosub 13485 :90t0o 1325 

print" Gleichungssystem nicht eindeutig" 
print" loesbar oder extrem instabil!" 
return 


for i=s1i ton 

s$=" x"+right$(str$s(i), 1)+" = " 

x=y(i) :gosub 1198 :print tab(14)s$;5tr$(Cx) +" “ 
next i 

return 


get aw$:if aw$="'" then 14085 
return 


poke 55376 +1Ut%48,8:poke 1184 +0t%#48,453:return 
for vt=3 to 6 

poke 55376+ut%40,15:poke 1164+ut%#48,32 

next vt 

return 

röoke 55379 +ut%#48,8:poke 1187 +ut%48,12Z:returr 
roke 55379+ut3#40,15:poke 1187 +ut%48,32:return 


if flay=B then gosub 478:rem >>> ati,k> °-- c(i,k? 
k=1:5$="" 

on pv gosub 6706,748,868: rem >>> pivct Drifikation 
if s$="n" then 1548 

yosub 978 :rem >>> elimination 

if k£cn-1 then k=k+1:90to 1510 
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1538 if not (abs(aln,n)) > eps) then s$="n" 
1535 if s$Cd"n" then wosub 18538 :rem >DD> rueckeinsetzung 
1548 yosub 12608:rem >>> ausgabe 

1545 flay=B:eps=B:pu=3 

1558 gosub 1445:rem >>> °+° loeschen 
1555 return 

1568 

1565 rem -------------- - + 2. 
1578 rem % iteration % 
1575 rem ----------7- 777 
15808 : 

1585 az$=" nur nachiterieren 7 
1586 gosub 318:if aw$="j" then 1598 
1587 for j=1 to n:y(j>=8:next j 

1589 z=B | 

1598 z=z+1i 

1595 for j=1 ton 

16869008 h=B 

16065 for k=1 ton 

168618 if kCDJ then h=eh+tc(j,k>’%yck) 

1615 next k 

1628 y(j>=17c(j,Jj>’%*%(Cc(j,n+ti)>-h) 

1625 next ) 

1686385 sp=8:z1l=15:if n(c4 then zl=21 

1635 gosub 278:print'BE Iteration"z'N8" 
168648 yosub 1348 

1645 if peek (283)=64 then 1590 

1658 return 


1655 : 

1666 rem III 

1665 rem % % 

1678 rem % menue % 

1675 rem % % 

16506 ren III III 

1685 : 

1698 1z$=" " 


1695 print" 

1788 print'Eg" 

1785 print" Bitte waehlen Sie aus:B" 
1718 print" 1) Konstanten eingeben " 
1715 print" 2) Ergebnis nach Gauss “ 
1728 print spc(1)"3) Null relativieren" 
1725 print spc(1)'"4) Konstanten normieren " 
1738 erint spc(1)'"5) Spaltenpivotisierung" 
1735 print spc(1)"6) Totalpivotisierung" 
1748 print" 7) Ergebnis iterieren " 
1745 print" 8) fAusgabeformat aendern " 
1758 print" 9) Endelg" 

1755 : 

1768 gosub 1398 :vt=val(awf$) 

1765 if vt<1i1 or vt>9 then 1768 

1778 : 

1775 9gosub 1465 :rem >>> haken zeichnen 

1788 on vt gosub 348,1588,528,578,1168,1105,15708,12360,18060 
1785 yosub 1476:rem >>> haken loeschen Ä 
1798 : 

1795 90oto 1798 

1888 print'B':end 
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Erläuterungen: 

Um ein wenig Komfort zu haben, muß man den Umfang in Kauf nehmen. Dies zeigt z.B. 
die Programmierung der Eingabe (Eröffnung eines eigenen Eingabekanals zur Unter- 
drückung des störenden Input-Fragezeichens; unterschiedliche Behandlung von n Ss 3 
und n > 4; Möglichkeit zur Eingabe von Brüchen; Korrekturen). 


Zur besseren Orientierung zeigt ein Haken, welcher Baustein des Menüs gerade bearbeitet 
wird. Außerdem werden die Optionen 3 bis 6 durch ein Pluszeichen markiert (2.1420). 
lterationen sind auch ohne vorangegangenes Gaußverfahren möglich. 


d) Testbeispiele 


| Die Systeme aus 6.3 (sie weisen keine Besonderheiten auf). 
I Beispiel eines Bildschirmausdrucks mit Menüanzeige: 


Bitte waehlen Sie aus: 


1) Konstanten eingeben 
2) Ergebnis nach BGauss 
2) Null relativieren 

4) Konstanten normieren 
5) Spaltenpivotisierung 
6) Totalpivotisierung 

7) Ergebnis iterieren 

8) Ausgabeformat aendern 


9) Ende 
all=7 al2=-1 als=5 al4=1 
azi=1 az2=3 ars=-1 a24=7 
a51=19 asz=1l a53=9 as54=9 
Ergebnis: il = -2.,0971 

2 = 4.364 

35 = 4 


Gleichungssystem nicht eindeutig 
loesbar oder extrem instabil! 


Bei diesem System ist eine Variable frei wählbar. Dies zeigt der Rechner aber erst mit 
Zusatzmaßnahme 3,5 oder 6 (Koeffizientendeterminante Null!). 


II aii=sie-iO alz=1 als=1 
azi=l a22=1 a23=2 
Ergebnis: »1= 0 Ergebnis: xi= 1 
„2 = 1 „2= 1 
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Das 1. Ergebnis ist falsch (ohne Pivotmaßnahmen enorme Rundungsfehler bei Rück- 
einsetzung). 


IV Wir nehmen das Hilbert-System und geben die Koeffizienten mit 3 Nachkommastel- 


len ein: 

a rl, Ergebnis: xi= 6.591 

Nm tzratzXatgXam| 2 = -57.163 
„SS = 100.778 

1 1 1 1 „4 = -42.272 

1 1 1 1 

ZrıtrgratgrstgxXam 1 

1 1 1 1 

arıtrsRatexXrstzxXa=1 


Ein völlig falsches Ergebnis! Hier helfen keine der Maßnahmen 2 bis 7, weil das System ex- 
trem schlecht konditioniert ist, d.h. auf geringfügige Änderungen der Koeffizienten (z.B. 
0,333 statt >) hin mit völlig anderen Lösungen aufwartet, die aber bezüglich der geänderten 
Koeffizienten richtig sind! 

Die mit Bezug auf die ursprünglichen Koeffizienten richtige Lösung erhalten wir bei Be- 
nutzung der Eingabe für Bruchzahlen: 


Ergebnis: „1l= -4 
„2 = 60 
x3 = -180 
»4 = 140 
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10 Spiele 


10.1 Türme von Hanoi* 


a) Gegenstand des Spiels 


Auf einem Brett sind drei senkrechte Stäbe angebracht. Auf dem linken Stab befindet sich 
eine Anzahl nach oben kleiner werdender Lochscheiben. 





Ziel des Ein-Personen-Spiels ist es, die Scheiben auf den mittleren Stab umzustapeln, wobei 
jedoch zwei Regeln zu beachten sind: 


— Es darf immer nur eine einzelne Scheibe transportiert werden. 
— Nie darf eine größere Scheibe auf eine kleinere gelegt werden. 


Ohne den rechten Stab, der zur Zwischenlagerung benutzt werden darf, wäre die Aufgabe 
offenbar unlösbar! | 

Probieren Sie es einmal selbst mit einem Stapel von vier oder fünf unterschiedlich großer 
Münzen. Wenn Sie die Züge zählen, können Sie überprüfen, wieviele unnötig waren: 

Vier Scheiben lassen sich in 15, fünf in 31 Zügen umstapeln; allgemein benötigt man 2"- 1 
Züge für die Verlegung eines Turms von n Scheiben. 

Der Computer soll uns nun die minimale Zugfolge demonstrieren, nachdem wir ihm einen 
entsprechenden Algorithmus eingegeben haben. Hierzu bietet sich das folgende rekursive 
Vorgehen an: 


*) Dieser Abschnitt entstand in Zusammenarbeit mit Marko Knepper aus Erkrath. 
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Das Problem, z.B. fünf Scheiben umzustapeln, ist gelöst, wenn man weiß, wie man einen 
Turm mit vier Scheiben umbaut. 















Diese vier Scheiben wiederum kann man umstapeln, wenn man drei Schreiben umstapeln 
kann usw., bis nur noch eine Scheibe umzusetzen ist. 


b) Allgemeiner Ablaufplan 


Unterprogramm „stapele” (n,a,b, c) 

(stapelt n Scheiben von Stab a auf Stab b mittels Stab c) 

Anfang 

Wenn n+0O dann stapele n — 1 Scheiben von a nach c mittels 5 
Ausgabe: Setze Scheibe a nach b 
stapele n —- 1 Scheiben von c nach 5 mittels a 


Ende 


Anmerkungen: Das zugehörige Hauptprogramm ist extrem kurz und besteht nur aus der 
Eingabe von n und einem Aufruf des U.P. „stapele‘’, wobei n und die Erstbelegung 1, 2, 3 
für a, b, c als Parameter übergeben werden. Das weitere Geschehen erklärt sich aus dem 
Umstand, daß sich das U.P. aus sich heraus mehrfach selbst aufruft (Rekursiver Aufruf, 
rekursives Unterprogramm). 


Man beachte, daß ‚‚n,a,b, c’' Namen von Speichern sind, die zu Beginn eines jeden Aufrufs von „,sta- 
pele’' die aktuellen Werte erhalten! 


HP-Aufruf: 3 


Erster rekursiver Aufruf: 
usw. 


0 - N 0 +- 


3 +- NND 3 + 
Ve [ad a 
+- oo O +- N 
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c) BASIC-Übersetzung 


DVONSINNN2 WPD Hr © 


ST)" 3 
sTK Pe u 


REM *** TUERME VON HANDI *#** 


INFPUT"KO SCHETBENANZAHL" 3 NO: FRINT 
ST(0)=0:ZL(O)=1: ZW(O) =2: 1=-1 


GOSUB 35 
END 


REM *##* UNTERPROGRAMM STAPELE 


IF NO=I+i THEN 99 
I=I+1 
ZW(I+1)=ZL(D 
ST(I+r1)=ST(D 
ZL(I+1)=ZW(I) 
GDOSUB 35 


PRINT" VON"5STCI) +15 "NACH"SZZL(TI +1 


ZW(I+1)=ST(TD) 
ST(I+1)=ZW(D 
ZL(I+ri)=ZL(D) 
GOSUB 35 
I=I-1 

RETURN 


REM *#% TUERME VON HANOT K% 


DIM ST$«6) 

= oO wm 

sTsO='4 Wwım 

ST(Y='R 2m 

ste" WW 3 m 

sta am" 
sm 
e u 


so 7 m 
DIM ST(7) ,2L(7),2 
DIM T<2) 
PRINT" 


= 
an) 
-] 
wi 


REM %% HAUPTPROGRAMM #% 


I=-1 

INPUT"EIO SCHE IBENANZAHL 
PRINT" BIMERREMRORMDEERG' 

FOR J=8 TO 7 


IF I+NG-S3=8 THEN PRINT" 
PRINT" Tg; gg; 


NEXT J 
PRINT" 
ST(8)=8:2L(8)=1:ZW(8)=2 


T£8)=16-N8: T(13=16:T(2)=16 


GOSUB 58 

INPUT" NOCHMAL 

IF El$="J" THEN 60T0 28 
END 


IBRBI' ; No 


",ST$FCI+NI-EI ;" 


",T$ 





IBBmE ; 


*R% 


225 
238 


REM %% TURM UMBAUEN %% 
IF Nö=1+1 THEN 110 
I=1+1 
ZW(C1I+1)3=2L(D 
STC1I+13=ST(D 
2L(C1I+1)=2ZW(1) 
GOSUB 58 
GET EI$ 

IF El$="'" THEN 65 
GOSUB 288 
ZW 1+1)3=STCD 
STCI+1)=ZWCI) 
zL.<(I+1)=2L(1) 
GOSUB 58 

I=1-1 

RETURN 


REM * STEIN UMSETZEN % 


T<£STEIP>=ST(CSTCIH I) +1 


POKE 214,T(STCI)) :POKE211,5STC1I)%13+2:5YS 58648 


PRINT T$; 


POKE 214,TC2LC1)33 ::POKEZ11,ZL(12%13+2:5Y5 59640 


T£ZLC1ID)STCZLCIH I) -1 
PRINT ST$<NG-I-1D; 
RE TURN 


Erläuterungen: 


Leider stellt die Sprache BASIC für den rekursiven Aufruf des U.P. keine /okalen Variablen, 
also gleichnamige, aber unterschiedliche Speicher für die einzelnen Aufrufsebenen, zur 
Verfügung. Wir simulieren drei lokale Variablen namens Star7, Ziel, ZWischen durch 

eindimensionale Felder, wobei jedes Element dieser Feldspeicher eine lokale Variable einer 


bestimmten Rekursionstiefe darstellt. Die Variable i zählt diese Stufen. 


10 Spiele 


Die zweite BASIC-Version stellt den Vorgang graphisch dar, wobei die Zahl der Scheiben 
auf sieben begrenzt ist. 
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d) Testbeispiel 


Wir zeigen eine verkleinerte vollständige Serie der Bildschirmausdrucke für den Falln=3: 


——————— Era 















--=- -FFr= 
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10.2 Wirtschaftsspiel* 


a) Gegenstand des Spiels 

Der Computer wird heute vielfach zur Überprüfung von Theorien und Modellen in Natur- 
und Wirtschaftswissenschaften eingesetzt: Langfristige Wettervorhersagen, Verhalten von 
Plasmen (heißen, ionisierten Gasen), Flugkörpern unter Grenzbedingungen, Investitionspla- 
nung, Kaufverhalten und Marktentwicklung, Trends in der Finanzwirtschaft (z.B. bei 
Wertpapierkursen). 

Allen Beispielen liegen komplexe Systeme zugrunde, bei denen die vielfältigen, zum Teil 
subtilen Wechselwirkungen nur teilweise bekannt sind. 

Hier soll stark vereinfacht das Wirtschaftssystem eines Agrarstaates betrachtet werden, wo- 
bei A Baumann für manche Anregung aus [8] zu danken ist. 

Der Spieler muß dabei zu Beginn jeder Runde (,,jedes Jahr‘) Eingaben zu volkswirtschaft- 
lichen Größen machen und bestimmt damit den Verlauf der Konjunktur: 

Die Wirtschaftskraft (‚,Anbaufläche‘’), die Gesamtproduktion (,,Ernte‘), den Wohlstand 
(„„Vorräte‘’) und damit die Bevölkerungsentwicklung. 

Die Größen (Geburten- und Sterberate, Fläche pro Kopf, Ernährungslage, Sattdichte, Pro- 
duktivität ...) stehen in vielfältigem Verhältnis zueinander (siehe Skizze). Der Zufall spielt 
eine Rolle, selbst vor Schicksalsschlägen bleibt der Spieler nicht verschont. 


Sterbe- 
rate . 
Bevölke- Ernährungs- 
..—— 
rung lage 
Geburten- Produ kt- Zuteilung 
rate tivität 
Gesamt- | Anbau- _ Eme O3 5» Getreide- 
fläche | fläche | 4 vorräte 
Saat- 
gut 


Landkauf 





Landverkauf 


Es sei hier nicht zuviel verraten, denn der Leser sollte sich selbst beobachten, wenn er ver- 
sucht, das System in den Griff zu bekommen. Nur soviel: 


Der gemäßigte Mittelweg ist, wie so oft, wohl der richtige. 


*) Ein Beitrag von Stefan Lemke aus Erkrath 
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b) BASIC-Übersetzung 


ıR 
2? 
66 
’/R 
BR 
97D 


EM *** WIRTSCHAFTSSFIEL *%% 
0OTO 3270 

EM *%%* UNTERPROGRAMME *%% 
EM x*x%* TEXT *%% 
IM EF#(37),FEF(10) 


EF#(1)="DAS FOLGENDE JAHR IST IHR LETZTES 
EF#(2)="SOEBEN IST IHR LETZTER UNTERTAN 
EF$3(53)="SIE HABEN IHR VOLK INS VERDERBEN 
EF$(4)="DAS SPIEL NIMMT FUER SIE EIN 
EF$(5)="SIE HABEN SOEBEN IHR LETZTES 
EF$(&)="IHRE UNTERTANEN FÜUEHLEN SICH DER 
EF$(7)="SOMIT ENDET DIESES SFIEL." 
EFF(8)="DA SIE IN IHRER SPIELLUST NICHT ZU 
EF$(9)="ZWANGSPENSIONIERT !" 

EF#(10)="MIT UHREN RESTLICHEN FAAR GEFOLGS-" 
EF$(11)="LEUTEN KOENNEN SIE DEM ANGRIFF EI-" 
EF£(12)="NER BENACHBARTEN STADT NICHT STAND-" 
EF#(13)="HALTEN. LEIDER KOENNEN SIE NICHT 
EF#(14)="SIE HABEN MENSCHEN VERHUNGERN"" 
EF$(15)="LASSEN. DER AUFGEBRACHTE FOEBEL" 
EFF(16)="PLUENDERT IHRE SFEICHER UND WIRFT" 
EFF(17)="SIE IN DEN DORFBRUNNEN. DESHALB" 
EF$(18)="KONNTE MAN SIE NICHT IN IHRER" 
EF$(17)="FAMILIENGRUFT BEISETZEN. " 
EFF(Z0)="EINE VERHEERENDE KRANKHEIT DURCHZOG 
EF$(21)="SIE " 


EF$(22)=" TOTE BEKLAGEN. " 
EF$(23)="SIE BEMERKEN SOEBEN,DASS DIE RATTEN" 
EFF(24)=" FROZENT IHRER VORRAETE GEFRESSEN" 


EFF(ZS)="HABEN. SIE SIND SICHER FROH, DASS 
EFF(26)="NICHT IN DER OFFIZIELLEN STATISTIK 
EF#$(27)="EINE SCHLECHTE NACHRICHT FUER SIE:" 
EF$E(28)="GERADE EXPLODIERTE EINER IHRER " 
EF$(29)="GETREIDESFEICHER DURCH EINE WEIZEN-" 
EFF(SO)=S"STAUBEXPLOSION. SIE VERLIEREN 1 /" 
EF$(31)="IHRER VORRAETE. " 

EF$(S2)="SIE SIND IN DIESEM MOMENT VON EINEM" 
EF#(33)="ATTENTAETER ERDOLCHT WORDEN. DER" 
EFF(34)="KOENIG IST TOT, ES LEBE DER KOENIG!" 
EF$(55)="SIE MOEGEN DOCH UEBERRASCHUNGEN 7?!" 
EF$(36)="DIE LETZTE UEBERRASCHUNG DIESES" 
EF$(37)="SFIELES IST, DASS ICH KEINE LUST 
REM * FEHLER * 

FE#(1)="SOVIEL LAND BESITZEN SIE NICHT !" 
FE$S(Z)="IHRE VORRAETE SIND ZU GERING FUER 
FEF(S)="SIE HABEN NICHTS MEHR ZUM VERTEILEN, 
FEF(4)="ANTI-GETREIDE GIBT ES NICHT !" 
FE$(5S)="SOVIEL GETREIDE HABEN SIE NICHT 
FE#(&)="ZU WENIG SAATGUT FUER DIESE FLAECHE!" 
FE$(7)="NEGATIVE ANBAUFLAECHE 7?!" 
FE#(8B)="SOVIEL KOENNEN IHRE LEUTE NICHT 
FE£F(9="MEHR ALS DIE HAELFTE KOENNEN SIE 
FE#(10)="ZUR SAAT IST KEIN GETREIDE MEHR DA!" 


RETURN 

REM #%* WARTESCHLEIFE RR% 

PRINT CR$;RD$, "> EINGABE <CR>" 
GET Af:IF Ast<>CR$ THEN 230 

PRINT CSF 

RETURN 

REM x#%* ZUFALL *r%r 


LET ZA=EXP(ZA*PI)-INT(EXP(ZA*FI)) 
LET RA=INT (ZA* (MA-MI+1))+MI 

RETURN | 

REM #*%* INITIALISIERUNGEN *r%* 
REM *%* STARTWERTE 


LET GF=10000:REM GESAMTFLAECHE 
LET BE=1000 :REM BEVOELKERUNG 
LET VR=20000: REM VORRAETE 
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REGIERUNGSJAHR 1!" 
GESTORBEN." 

GESTUERZT." 

UNRUEHMLICHES ENDE !" 

LAND VERKAUFT." 
GEHORSAMSFFLICHT ENTBUNDEN. " 


BREMSEN SIND, WERDEN SIE" 


MEHR FLIEHEN." 


IHR LAND. DESHALB MUSSTEN" 


DERART FEINLICHE VORFAELLE" 
VERMERKT WERDEN. " 


MEHR HABE !" 


SO VIEL LAND !" 
AUCH NICHTS ZUR SAAT !" 
ZUM VERTEILEN !" 


BEBAUEN !" 
NICHT BEBAUEN !" 
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362 REM *%* KONSTANTEN 

365 LET RF=0.002:REM REFRODUKTIONSFAKT. 
365 LET PT=& :REM PRODUKTIVITAET 

368 LET SD=0.5 s:KRKEM SAATDICHTE 

S70O REM *% STEUERUNG 

375 LET VB=O :REM VORRATSBEWEGUNG 
380 LET ER=O ı:REM ERNTE 

3970 LET BF=30 sREM BODENPREIS 

400 LET GB=0 :REM GEBORENE 

410 LET G5=0 :REM GESTORBENE 

420 LET FF=GF/BE:REM FLAECHE FRO KOPF 
430 LET HE=O ı:REM ERTRAG PRO HEKTAR 
440 LET NK=O sREM NAHRUNG FRO KOFF 
445 REM *%* EINGABE 

450 LET ZT=O :REM NAHRUNGS-ZUTEILUNG 
460 LET AF=O sREM ANBAUFLAECHE 

470 LET LK=O0 :REM LANDKAUF 

480 : 


490 LET EN=O0: JR=0: PI=4x*ATN(1) 

495 LET RDF="B" :G6R$="fl" : BL F="B" ı BR =" GG" ı VIS=" 

500 LET CR$=CHR#&E (13) : CSF$=SCHRF (147) 

510 RETURN 

530 3 

535 REM **#* EINGANGSINFORMATIONEN #%#%* 

540 FRINT CS#:FOKE 53280,14:FOKE 53281,1 

580 FRINT CR$3;5BLE; " WIRTSCHAFTS SP IE L"3CR$; CRF:GRE 
610 FPRINT'"SIE BEKOMMEN DIE REGIERUNG EINER ANTI- KEN STADT UEBERTRAGEN. ";CRF# 
630 FRINT"SIE HABEN ";BE;3" UNTERTANEN, IHR REICH". 

635 FRINT"IST ";GF3" HEKTAR GROSS UND IN IHREN" 

640 PRINT"VORRATSKAMMERN BEFINDEN SICH "3;3VR 

650 FRINT"DOFPELZENTNER GETREIDE. ";CRF$ 

670 FRINT"ALS HERRSCHER DIESES STAATES KOENNEN SIE"3 

680 FRINT"JEDES JAHR BESTIMMEN, WIEVIEL WEIZEN DEM"; 

690 FRINT"VERZEHR ZUGEFUEHRT WERDEN SOLL, WIEVIEL" 

700 FRINT"LAND DURCH DIE BEVOELKERUNG BEBAUT WER-" 

710 FRINT"DEN SOLL UND OB SIE LAND HINZU- ODER" 

720 FRINT"VERKAUFEN MOECHTEN. "sCRFSCRF 

750 GOSURB 190 

770 FRINT CR$3BLE$3 " WIRTSCHAFDTSSP1DTIE L";CRF;CRFECRS$ 
800 FRINT"DAS GETREIDE IST ZUGLEICH ERNAEHRUNGS-" 

810 FRINT"GRUNDLAGE UND UNIVERSELLES TAUSCH-" 

820 FRINT"MITTEL.";CR# 

850 FRINT"DIE GROESSEN STEHEN IN GEGENSEITIGER AB-"; 

860 FRINT"HAENGIGKEIT ZUEINANDER: " 

870 FRINT'"SD BEEINFLUSST DIE ERNAEHRUNGSLAGE DER" 

880 FRINT"BEVOELKERUNG DIE STERBERATE, DIE SIED-" 

890 FRINT"LUNGSDICHTE DIE GEHBURTENRATE UND SO WEI-"; 

900 FRINT"TER; AUSSERDEM SFIELT DER ZUFALL HIN-" 

910 FRINT"SICHTLICH ERTRAG UND EBODENFREIS EINE" 

92C FRINT"ROLLE. "sCRFIRDE 

930 INFUT"> BITTE GEBEN SIE EINE FLIESSKOMMAZAHL ZWISCHEN OÖ UND 1 EIN "3ZA 
940 IF (ZA<X=0) OR (ZA>=1) THEN FRINT CS#:GOTO 770 

950 FRINT 

9680 INFUT"> LIEBEN SIE UERBERRASCHUNGEN (J/N) ";UEF 

970 IF VEF="J" THEN DR=544:60T0 990 

975 IF VEF="N" THEN DR=-20:60T0 9970 

980 FRINT CSF:60T0 770 

990 RETURN 


1020 REM x*#%* HAUFT INFORMATION *r%r 

1030 FOKE 53280,8 

1070 FRINT CS#;CRF, ELF" "=JIR;". REGIERUNGSJAHR";CRF 
1090 FRINT GRF; "BEVOELKERUNG NUNMEHR „....."; BE 

1100 FRINT"IN DEN VORRATSEAMMERN „....- "SVR:"DZ" 


11160 FRINT"GROESSE IHRES KEICHES .„...."3GF5 "HA" 
1120 FRINT"EIN HEKTAR LAND KOSTET ....";EF,"DZ";CRF 
1130 RETURN 

11680 REM #** EINZELINFORMATIONEN ##%%* 

1170 GOSUB 1020 

1190 FRINT ER$; "ES WURDEN GEBOREN „sur. 0...";56B 
120680 FRINT"ES STARBEN „ee cccceneenna. "565 

1210 FRINT 
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1220 FRINT"LETZTE VORRATSBEWEGUNG .„..."3VB; "DZ" 

1250 FRINT" ZUR ERNAEHRUNG VERTEILT .."3ZT; "DZ" 

1240 FRINT" FUER SAATGUT VERBRAUCHT „. "3; INT (AF*SD) ; "DZ" 

1250 IF LK>O THEN PRINT" FUER LANDKAUF „uses enennn.t"; LKRAPS "DZ" 
12680 IF LK<SÖO THEN FRINT" DURCH LANDVERKAUF „seo... "5 -LKRAP3 "DZ" 
1270 FRINT" LETZTJAEHRIGE ERNTE ......";3ER; "DZ" 

1280 FRINT"LETZTER HEKTARERTRAG .. .... "5 HE3 "DZ/HA" 

1290 FRINT"FLAECHE PRO EINWOHNER „...."5; INT(FK*100) 7/1005; "HA" 
1500 FRINT"NAHRUNG PRO EINWOHNER „...."3 INT(NK#100) /1005 "DZ"; CRF;CRS$ 
1340 IF EN=1 THEN PRINT" --7- ENDE ---":RETURN 
1350 GOTO 190 

1355 REM * EINGABE-FEHLER * 

1357 POKE 53280,4 

13597 FRINT CR$;VI#; ">>> "SFEF(E) 

1561 LET LK=0: ZT=0: AF=O 

1363 GOSUB 190 

1455 REM x#%* EINGABE ar% 

14&0 GOSUB 1020 

14684 LET AN$="":PRINT RD$;5 

1486 INFUT"> WUENSCHEN SIE ZUSATZDATEN (J/<CR>) "ZANF 
14688 IF AN$="J" THEN GOSUB 1150:60T0 1455 

14687 LET LK=0: ZT=0: AF=0O 

1470 IF VR<>O THEN 1560 

1490 FRINT CR$; ">>> SIE HABEN WEDER GETREIDE ZUM VERTEI-"; 


1500 PRINT" LEN,NOCH ZUM LANDKAUF ,NOCH ZUR SAAT!" 
1530 INPUT"> WIEVIEL LAND WOLLEN SIE VERKAUFEN ";LK 
1540 LET LK=-ABS (LK) 


1550 IF LK+GF<O THEN E=1:60T0 1355 

1555, IF LK=O0 THEN RETURN 

1557 GOTO 1890 

1580 PRINT"> WOLLEN SIE LAND KAUFEN OD. VERKAUFEN" 

1570 INPUT" (LANDVERKAUF=NEG. ZAHL) ";LK 

1580 IF LK+GF< O THEN E=1:60T0 1355 

1590 IF LK#BP>VR THEN E=2:60T0 1355 

1640 IF VR=LK#BP THEN PRINT CR$3 ">>> ";FESCS)IJZCERFS RETURN 
1690 FRINT"> WIEVIEL GETREIDE WOLLEN SIE AN DIE" 

1700 INFUT" BEVOELKERUNG VERTEILEN "353ZT 

1710 IF ZT<O THEN E=4:6G0T0 1355 

1750 IF ZT+LK*BP>VR THEN E=5:G0T0 1355 

1800 IF VR=LK#BP+ZT THEN PRINT CR$5; ">>> ";FEF(IO)ZCERF: RETURN 
1840 IF GF+LK=0 THEN 1990 

1845 INPUT"> WIEVIEL LAND WOLLEN SIE BEBAUEN LASSEN ";AF 
1850 IF AF>GF+LK THEN E=1:60T0 1355 

1860 IF AF*SD>VR-LK*BP-ZT THEN E=5:60T0 1355 

1900 IF AF<O THEN E=7:G0T0 1355 

1740 IF AF>FT*BE THEN E=8:60T0 1355 

1980 IF AF>(GF+LK)/2 THEN E=9:60T0 1355 

17790 RETURN 

2000 REM * TEXTAUSGABE FUER EF$() * 

2005 POKE 53280,10 

2010 FRINT">>> "z;EFS$S(E) 


2020 IF F>O THEN FOR I=E+1 TO E+FıPRINT" "SEFF(DI:NEXT I 
2030 GOTO 190 
2040 REM x**%* EFFEKTE “x 


2050 LET EN=Ö 

20&0 IF JR=DR THEN E=1:F=0:G0OSUB 2000 

2100 IF BE=ÖO THEN E=2: F=2: EN=1:G60TO 2000 

2160 IF GF=O THEN E=5:F=2:EN=1:60T0 2000 

2200 IF UEF="N" THEN 2970 

2240 IF JR>?84 THEN E=8:F=1:EN=1:60T0 2000 

2300 IF BE<100 THEN MI=0:MA=15:60SUB 240: IF RA=15 THEN E=s10:F=3:EN=1:G0TO 2000 
2360 IF 65-6BX=100 THEN 2480 

2370 LET EF$(14)=LEFT$S(EFF(14) „ I) +STR$(GS) +RIGHTF(EF$ (14) ,20) 

2380 LET E=14:F=5:EN=1:60T0 2000 

24BÜd LET M1=0:MA=20:G60OSUB 260 

2490 IF RA<>20 THEN 2570 

2500 LET MI=10:MA=100:G0OSUB 280 

2510 LET U=INT (BE/RA) +1:65=65+U: BE=BE-U 
2520 LET E=?0:F=elıEF$ (21) =LEFT$(ERFS (21) ,3) +STR$ (U) +EFF# (22) s GOSUB 2000 
2570 IF VR=0 THEN 2830 
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2590 LET MI=0:MA=25:605SUB 260 

26810 IF RA<>25 THEN 2710 

2630 LET MI=10:MA=30:GOSUB 260 

2640 LET VR=VR-INT (VR#*+RA/100) 

2645 LET EF$(24) =RIGHT$(STR$ (RA) „2) +RIGHTF (EFF (24) „33) :E=23:F=3:60SUB 2000 
2710 LET MI=0:MA=25:G0SUB 280 

2720 IF RA<725 THEN 2830 

2740 LET MI=4:MA=9ı BOSUB 260: VR=VR-INT (VR/RA) 
2750 LET E=27:F=4:EF$ (30) =SLEFT$S(EF$FCIO) „33) +STR# (RA) :GOSUB 2000 
28530 LET MI=0:MA=200:GOSUB 2&0 

2840 IF RA=200 THEN E=32:F=2: EN=1:G60TO 2000 
2900 LET MI=0:MA=200: GOSUB 2&0 

2910 IF RA=200 THEN E=35:F=2:EN=1:GOTO 2000 
29770 RETURN 

29790 REM x#% KALKULATIONEN #r% 
35040 LET JR=JR+1 

3050 REM * EINSATZ DER VORRÄAETE + 

3060 LET VB=(LK*+BP)+ZT+(AF*SD) 

3070 LET VR=VR-VB: GF=GF+LK 

3100 REM * ERNTE +# 

3110 LET MI=0:MA=3:G0OSUB 2680 

3120 LET HE=0: IF AF<>O THEN HE=4+RA 

3130 LET ER=AF#HE:s VR=VR+ER: VB=ER-VB 

3140 REM * GEBURTEN- UND STERBERATE * 

3150 LET FK=GF/BE:NK=ZT/BE 

3160 LET GR=RF#FK: IF FK>15 THEN GR=0.03 
3165 LET SR=0. 13-(NK#0.006) 

3170 REM * BEVOELKERUNGSENTWICKLUNG * 

3190 LET GB=INT(BE*xGR) 

3230 LET GS=INT (BE*SR) ss IF GS<O THEN G65=0 
3240 LET BE=BE+GB-GS 

3250 REM * NEUER BODENPREIS * 

3255 LET MI1=28:MA=33:60SUB 260 

3260 LET AP=BP:BP=RA 

3265 RETURN 

3266 : 

3270 REM #%% HAUPTPROGRAMM *r% 

3280 GOSUB 8 

3290 GOSUB 330 

3300 GOSUB 530 

3360 GOSUB 1455 :REM EINGÄBE 

3370 GOSUB 2990 REM BERECHNUNG 

3380 GOSUB 2040 :REM EFFEKTE 

3390 IF (JR<S>DR) AND (EN=O) THEN 3360 

3400 LET EN>=1 

3410 GOSUB 1160 

3420 END 


Erläuterungen: 


Die Informationen bei jeder Runde wurden aus Gründen der Übersichtlichkeit auf ein 
Minimum reduziert, es ist aber möglich, eine genaue Statistik einzuholen (Abfrage: „Zu- 
satzinformationen”). 

Die Rechenroutine befindet sich in den Zeilen 2998-3265. Aus ihr kann man die Ver- 


knüpfungen ersehen, die verwendeten Variablen werden bei der Initialisierung (Zeilen 
330-480) erklärt. 


Das Programm ist in Module aufgeteilt, das Hauptprogramm befindet sich am Ende, Zeile 
3270-3420. 


c) Beispiel eines Spielablaufs 


Bild 1 zeigt die Anfangssituation. 


In Bild 2 ist zwar die Bevölkerung stark gestiegen, aber es wurde viel Land verkauft, und 
die Vorratskammern sind leer. Bild 3 zeigt ein früh abgebrochenes Spiel, bei dem auf 
Stabilität geachtet wurde, es sind immerhin 80® ha Land hinzugekommen. 
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8 „ REGIERUNGS JAHR 


BEVOELKERUNG NUNMEHR .„...... 1888 

IN DEN VORRATSKAMMERN .„.... 28608 DZ 
GROESSE IHRES REICHES .„..... 18888 HA 
EIN HEKTAR LAND KOSTET .„.... 38 DZ 


7 . REGIERUNGS JAHR 


BEVÖOELKERUNG NUNMEHR „..... 1145 

IN DEN VORRATSKAMMERN .„.... 128 DZ 
GROESSE IHRES REICHES .„..... 3467 HA 
EIN HEKTAR LAND KOSTET .... 33 DZ 


7 . REGIERUNGSS JAHR 


BEVÖOELKERUNG NUNMEHR .„..... 1832 
IN DEN VORRATSKAMMERN „.... 39775 DZ 
GROESSE IHRES REICHES .„.... 18888 HA 
EIN HEKTAR LAND KOSTET .... 33 DZ 


ES WURDEN GEBOREN .„...s.... 21 
ES STARBEN a 


LETZTE VORRATSBEWEGUNG „.... 2388 D2 
ZUR ERNAEHRUNS VERTEILT .„. 228088 DZ 
FUER SAATGUT VERBRAUCHT „. 2706 DZ 
LETZTJAEHRISE ERNTE ...... 27088 DZ 

LETZTER HEKTARERTRAG „..... 5 DZ/HA 

FLAECHE PRO EINWOHNER ..... 18.68 HA 

NAHRUNG PRO EINWOHNER „.... 21.76 DZ 


--- ENDE --. 


10.3 Mastermind* 


a) Gegenstand des Spiels 


Normalerweise versteckt ein Spieler farbige Stifte in 4 Löcher, deren Farbkombination 
ein zweiter herausfinden soll. Dies geschieht in folgender Weise: der 2. Spieler setzt selbst 
Stifte in eine Parallelreihe, die der 1. Spieler bewertet, indem er für jeden nach Position 
und Farbe richtigen Stift einen kleinen schwarzen Stecker und für Stifte, die nur der 
Farbe nach vorkommen, je einen weißen Stecker setzt. 

Es sind bis zu 8 Farben möglich und auch Lücken sind zugelassen. Ferner wird vereinbart, 
ob Stifte von gleicher Farbe vorkommen dürfen. Bei allen o.g. Möglichkeiten gibt es 
9* = 6561 Kombinationen (Anzahl aller 4-tupel aus einer Menge von 9 Elementen, wo- 
bei die Lücke als 9. Element gilt). 


*) Ein Beitrag von Marko Knepper aus Erkrath 
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Der Computer vertritt im folgenden einen der Spieler. Der andere Spieler kann entweder 
die Stiftkombination des Computers erraten oder umgekehrt den Computer seine Kombi- 
nation herausfinden lassen. Bei der im zweiten Fall verwandten Strategie erzeugt der Rech- 
ner mit einer Art „Kombinationszähler‘‘ nacheinander alle den vereinbarten Spielregeln 
entsprechenden Kombinationen und findet die richtige, indem er der Reihe nach eine 
herausgreift und — vorübergehend — als Lösung betrachtet. Bereits früher vom Spieler 
bewertete und vom Rechner abgespeicherte Rateversuche werden nun nacheinander mit 
dieser internen Versuchslösung verglichen und vom Rechner ausgewertet. Stimmen diese 
internen Bewertungen alle mit den früher tatsächlich erfolgten Bewertungen des Spielers 
überein, wird die interne Versuchslösung auch „offiziell‘' angezeigt. Diese sichtbar gewor- 
dene Kombination ist sozusagen durch ein Bewertungsfilter gelaufen, in dem viele andere 
Kombinationen zurückbleiben. Werden keine falschen Eingaben gemacht, wird schließlich 
nur noch eine einzige Lösungskombination durch den Filter durchgelassen. Bei 4 Löchern 
und 6 Farben (ohne Wiederholung) ist dies in der Regel nach dem 4. Rateversuch des 
Computers der Fall! (Versuchen Sie es einmal selbst!) 


b) BASIC-Programm 


18 rem *%%% master mind #%% 


28 dim fa(28,3),az2(208,9) ,sw(28) ‚we (25? 
38 dim f1(3),a1(8) ,f2(3) ,a2(9) 

35 poke 532858,8: poke 53281,B 

48 ft$="BrioibfellcirNzBul" 


49 
58 rem %%* spielregeln %% 
88 print chr$(14); "BEN *%%* Master Mind 33%" 


61 print"E Zunaechst werden die Spielregeln" 

62 print" Tfestgelegt.E" 

63 input'"E Anzahl der Loecher (max 4)? ":ıh 

64 input'El Anzahl der Farben (max 9 "fr 

188 fb=fr-i1: lo=1h-1 

118 if fk<lo then print'Ed Also Farben auch mehrfach!" :goto 1408 
128 input'El Farben auch mehrfach ";me$ 

148 input"E Seieler (s) oder Computer (c?> raet '";ra$ 

168 if ra$="s" then 598 


178 rem *%%* computer raet %% 

172 erint'E #%x%* Computer raet %#H4EE' 
179 : 

1886 rem *% anfangskombination * 

198 if me$<>'n" then aitB8)=1Ih:goto 197 

192 for z=B to 10 

193 fitlz)=z:al(lz)=1 


194 next z 

195 : 

195 rem *% ausgabe des versuchs % 
197 print" Bi" 


198 print" Bi"; 
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199 


for z=B8 to lo 
print mid$s(cft$s,fi(z’%2+1,2);" "; 


next z 
print" sw "; 
su=2 


for z=1 to 18:9et ei$:next z 


rem %* durchtesten der kombinationen % 

if ve=2B then print:print'EE Ich gebe auf.'":9goto 1iB8B 
for z=B8 to lo:fa(lve,z’)=fi(z) :next z 

for z=B to fb:az(ve,z’=al(z) :next z 

ve=ve+i 


rem kombination erhoehen 

z=1o 

if su>8 then gosub 3888 

aitfi(z))=allfilz))-i1 

if not (fi(iz)=fb ) then 318 

if z>8 then 388 

if su=8 then print" Das kann nicht stimmen !Bl" :soto 180898 
print:erint'g Dies muss die Loesung sein!":goto 3260 
fi(z)=08 

z=z-1i 

goto 278 

fitz)=fi(lz) +1 

if me$='"n" and al(fi(z))=i then 288 
aitfi(z)Y)=altfi(lz))+i 

if z=lo then 3838 

for z=z+1 to lo 

if me$='"n" and ai<cfitz)>=1 then fitz)=fi(z)’+1:g90oto 358 
altfil(lz))=sailtfilz)>r ti 

next zZ 

z=B 

if ve=1 then 492 


rem bewerten 

s=8 

for y=B to lo 

if fiiy)=sfalz,y> then s=s+1 

next 49 

w=—5s 

for u=B to fb 

if ally)<az(z,y) then w=w+tai(y) :goto 468 
w=w+taz(z,4y) 

next y 


rem vergleichen 

if not(s=swiz) and w=we(z)?> then 268 
z=z+1i 

if z(ve-i then 396 

if z=zve then 197 

if su=8 then 398 

erint'"?"; 

gyosub 3888 

yoato 492 
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>90 
os 


>99 
688 
618 
628 
638 
648 
658 
676 
6868 
698 
6594 
695 
08 
718 
12 
28 
738 
31 
732 
733 
735 
736 
737 
758 
768 
778 
788 
798 
795 
8808 
810 
828 
838 
993 
999 
10808 
108085 
18918 
1998 
1999 
2808 
2883 
2805 
2828 
2998 
2999 
3888 
30882 
3065 
3010 
3812 
3815 
3016 
3828 
3835 


rem %% srieler raet %*% 
erint'ER 3% Spieler raet *xX3%48" 


rem % computer versteckt # 

for z=B to lo 

f2(z)=int(irnd (BI Kkfr) 

if me$="n" and a2(f2(z))=1 then 626 


a2(f2(z))=32(f2(z)) +1 

next z 

for z=B to fb:al(z)?=B:next z 
ve=ve+i 

print" "; 

rem %*% bewerten % 


s=8 

for z=8 to 10 

gosub 20908 

y=8 
ifei$=mid$(cft$,y%$2+2,1>then?735 
y=y+i1 

if y<c=fb then 738 

goato 712 

fi(z)=y 

aity)=ally)+i 

print "WB" ;mid$(ft$ ,yX2+1,23;" WM"; 
if fi(z)=f2(z) then s=s+ti1 

next z 

w=-s 

for z=6 to fb 

if al(z)<a2(z) then w=w+tail(z) :gyoto8ßd 
w=w+ta2(z) 


next z 
print'3a sw ";s;" we";w 
if not(s=1h) then 678 


print'B| Sie benoetigten ";ve;" Versuche!" 


rem %% ende %% 
inpeut''E| Noch ein Spiel ";eif 
if ei$="j" then clr:90t028 
end 


rem %% zeicheneingabe %*% 


print"? ; 

get ei$ 

if ei$="" then 2803 

return 

rem %%* bewertungseingaben %% 
get ei$ 

if ei$="'"then return 


if ei$ct"g" or ei$>"9" then 3006 
print ei$; 

if su=1 then 31B0 
sw(ve-1)=val(ei$) 

if sw(ve-i)=1h then goto 3208 
rrint" we "; 

su=i 
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3846 return 

3168 we(ve-1)=val(eif$) 

3125 print 

3126 print'E Bitte Geduld" 

3138 su=B 

3135 return 

3288 rr int'"EE" | 

3285 print" Nach ";ve;" Versuchen erraten!" 
3218 9soto 1998 


Erläuterungen: 

Aus Gründen der Platzersparnis werden in diesem Programm die Farbumschaltungen auf 
dem Bildschirm durch Zeichen innerhalb einer PRINT-Anweisung vorgenommen. Im Li- 
sting als inverse Zeichen, vgl. Handbuch S. 166, dargestellt. 

In FT$ ist der Farbschlüssel gespeichert: Für den Benutzer gilt der Farbcode: 

Rot =r, Grün = g, Blau = b, Gelb = e, Orange = 0, Purpur = p, Zyan = z, Weiß = w 

und quasi als 9. Farbe die Lücke = I. Werden weniger als neun Farben vereinbart, so werden 
jeweils die ersten Farben bei Rot beginnend verwendet. 


Um Zeit zu sparen, denkt der Computer weiter, während er auf die Bewertung wartet. Erst 
wenn er damit fertig ist, gibt er ein ,?’aus, obwohl er auch vorher Eingaben entgegennimmt. 


In AZ, Al, und A2 ist jeweils eine der in FA, F1 und F2 befindlichen Kombinationen 
entsprechende ‚‚Farbenbilanz’ gespeichert, die den zeitaufwendigen Bewertungsvorgang 
erheblich beschleunigt. 


c) Protokoll von Spielverläufen 
| Der Benutzer dachte an die Kombination grün, gelb, blau, purpur 
*%*%* Master Mind #3%% 


Zunaechst werden die Spielregeln 
festgelegt. 


Anzahl der Loecher (max 4) 4 
Anzahl der Farben (max 9 ?6 
Farben auch mehrfach nn 


Spieler (s) oder Computer (c) raet ? c 


*x*%* Computer raet *%% 


















SE sw i we 2 
m swB we 2 
pn ® sw 1 we 2 

5 sw 4 


Nach 4 Versuchen erraten! 
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1 3 Löcher, 6 Farben; Kombination ohne Wdh. purpur, grün, gelb 


*»%x%* Computer raet *%% 


sw 1 we 8 


BEER sw 8 we 1i 
zoo sw 1 we 2 
SER sw 


Dies muss die Loesung sein! 


ii 4 Löcher, 2 Farben; Kombination grün, rot, grün, rot 


*x%* Computer raet %*%% 


sw 2 we 6 
sw 2 we 2 
sw we 4 
sw 





Dies muss die Loesung sein! 
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Anmerkungen 


2.2 


Außerdem darf die Masse bzw. der Querschnitt des Körpers und dessen Geschwindigkeit 
nicht zu klein sein, sonst tritt das Stokesche Gesetz an die Stelle des o.a., welches die 
Geschwindigkeit nur noch in der ersten Potenz berücksichtigt: R=6 nv (Kugeln; Nebel- 
tröpfchen, Millkanversuch!) Auch bei hohen Geschwindigkeiten in dichter Luft besteht 
eine lineare Abhängigkeit zu v (Gewehrkugeln), während bei den noch höheren Satelliten- 
geschwindigkeiten im stark luftverdünnten Raum wieder die quadratische Abhängigkeit 
von v gilt, siehe Kap. VI in: A. Bohrmann, Bahnen künstlicher Satelliten, BI Mannheim, 
Bd. 40/40a. Entscheidend für die quadratische oder lineare Abhängigkeit von v ist u.a. 
das Vorhandensein bzw. Nichtvorhandensein von Wirbeln! 


2.2.1 
Igl 2m Igl Cyp A 
1. Vt” nn, a K = 
Cy'p A K 2m 


Genau genommen nähert sich v nur asymptotisch v.„., wie man der folgenden Gleichung 
entnehmen kann, die mir Hubert Voß aus Unna mitteilte: 


Ig 


=, ya 
1+e 1 1 22: /IgvK -t 


(Die Abweichungen in den Testbeispielen liegen bei 2 %) 
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2. Der Grund dafür: Bei konstantem a gilt Ill exakt (man vergleiche die übliche Form 
v=vo+tat) und auch | exakt: 


yit+At)=y(t) + (vi +alt) 2)) -At=ylt)+vft) At+zalı) - (At)? 


1 2 . 
\ =SotVo't+t > a't (für jeden Schritt aufs neue anzuwenden!) 


2.3.1 
1. Wenn in Y = 6,67 10°"! m” kg”! s”2 statt ‚„m”’' das Maß „(10° km)?” eingefügt 
werden soll, wird das Maß um den Faktor 10'® vergrößert, weshalb zum Ausgleich die 


Maßzahl um denselben Faktor verkleinert werden muß! 
2 


4 ge 
2. Die Keplerkonstante eines Zentralkörpers der Masse M erhält man gemäß m für die 
2 
Erde zu —— a — - 9,9- 104 
6,67 1011-6. 10% 


Die notwendige Geschwindigkeit von v„= 10,57 km/s für das jetzige Perigäum-Peo 
erhält man auch mit Hilfe des gewünschten zukünftigen Apogäaums Ap; nach dem 
Rezept 


zu Apı = 384 : 10° km, Peo= 7: 10° km, vo = 7,54 km/s. 


2.3.2 


Der Mond bewegt sich auf einer Elipse um die Erde, deren große Achse einen Durchmesser 
von 407000 km hat; infolge des Massenverhältnisses Erde: Mond = 81,3: 1 teilt der Schwer- 
punkt diese Strecke in zwei Abschnitte von 402055 km und 4945 km. Aus der sideri- 
schen Umlaufzeit von 27 d 7h 43 min = 2360580 s und dem mittleren Abstand von 
384400 km berechnet sich die mittlere Bahngeschwindigkeit des Mondes zu 1022 m/s. 
Mit dem zweiten Keplerschen Gesetz ergibt sich dann weiter 0.5 : 1022 : 384400 = 

0,5 :v-402055 bzw. v = 977 m/s für die Geschwindigkeit im Apogäum und aus der 
Relation Vyond: Verde * 81,3:1 eine Geschwindigkeit von rund 12 m/s für den Erdmit- 
telpunkt auf seiner fast kreisförmigen Bahn um den Schwerpunkt. (Daten aus der Tafel 
von Sieber, Klett 1973; man beachte jedoch, daß der Einfluß der Sonne bei den o.a. Über- 
legungen nicht berücksichtigt werden konnte und daher Unstimmigkeiten gegenüber der 
tatsächlichen Bahn verbleiben.) 


4.4 


1. Im Jahre 1967 bewies Se/fridge, daß erstere eine Primzahl und letztere durch 1933 
teilbar. 


2. Es handelt sich um die Zahl 4294967297, die die Teiler 641 und 6700417 besitzt; 
ursprünglich hatte Fermat vermutet, mit 


einen Term gefunden zu haben, der nur Primzahlen erzeugt! (Leonard Euler, 1707 bis 
1783, Pierre Fermat, 1601 bis 1955). 


Anhang 169 


5.3 Bevor eine Kugel in einem Fach landet, hat sie n Links-Rechts-Entscheidungen hinter 
sich. 

Ins k-te Fach (von links) gelangen solche Kugeln, die k mal nach links (und n -k mal 

nach rechts) abgelenkt wurden. Dies ist auf (\) verschiedenen Wegen bei insgesamt 2". 

Wegen möglich. (Vgl. auch die Koeffizienten von (a + b)".) 


6.2 Hinreichend ist z.B. der folgende Satz: 

Wenn f stetig auf dem abgeschlossenen Intervall I; f(l) < I; und wenn es eine positive 
Konstante L< 1 gibt, so daß |f(x}) -f(x>)| SL |xı - x2]| für alle x], x» aus, 
dann besitzt die Gleichung x = f(x) in I genau eine Lösung £, die von der zugehörigen 
Iterationsfolge x„+1 = f(x„n) für jeden Startwert xo aus I erreicht wird. 


71.1 

Falls n gerade, gilt a2 = a,_] au+1 — 1 (vollständige Induktion). Die Differenz „1“ ist 
Flächenmaßzahl des anstelle der ‚„‚Diagonalen’’ im Innern des Rechtecks ausgesparten, 
extrem flachen Parallelogramms! 
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Balkengraphik 7 
beschleunigte Bewegung 19 
bestimmtes Integral 121 
Bildschirmsteuerung 5 
Binomialkoeffizienten 77 
Blank 7 

Bogenmaß 16, 23,90 
Boolsche Variable 97 
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